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The AMI6800 Prototyping Board is a single 
board, hardware and software, prototyping system. 
It allows system development using a functionally 
compatible system for reduced development time. 
With this board the basic 6800 family parts (S6800, 
S6810, S6820, S6830, S6831, S6834 and S6850) 
can be evaluated. It may also serve as a general 
purpose microcomputer for low volume systems to 
which the user can easily add I/O or memory. The 
10:4" x 12" card has two 86 pin edge connectors, 
one for MPU Bus lines and one for I/O. 


The AMI 6800 Prototyping Board has several 
major features which offer great flexibility for 
program development. 


MAJOR FEATURES 

e 2K Bytes ROM 

e 512 Bytes EPROM 

* Location for 2K Bytes EPROM 
e 1K Bytes RAM 


IH 


Introduction 


EPROM Programming Capability for S6834 
Variable Speed or Crystal Controlled Clock 
Up to 58 Programmable I/O lines 

АСТА with either TTY or RS-232C Interface 


Single +5 Volt Power Source except when using 
EPROM or RS-232C Interface Chips 


е Totally Buffered MPU Lines Available at Edge 
Connector Pins 


® RAM in High Order Memory for Dynamic 
Interrupt Flexibility 


Interval Timer Giving 1ms and 100us Interrupts 
Selectable DMA Mode 
Restart Address Selection 


TTY Operating System Software with a Re- 
Entrant Self-Relative Subroutine 


е ROM and an EPROM Programming Subroutine 


Several of the above options are switch selectable. 
See Chapter 5 for details. 
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The AMI Prototyping Board is an inexpensive high- 
performance system that is ideal for first time users 
of microcomputers so that they may gain familiarity 
with the individual devices and recommended 
applications circuitry. It should also be attractive 
for OEMs who are looking for a single board micro- 
computer to include as part of their overall system. 


System Description 


Figure 1-1 shows the block diagram of the AMI 
6800 Prototyping Board. 


The Prototyping Board is packaged on a 10-1/2" x 
12” card (26.67 x 30.48 cm) and has two 86-pin 
edge connectors, one for the microprocessing unit 
(MPU) bus lines, and one for I/O. 
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Figure 1-1. AMI 6800 Prototyping Board Block Diagram 
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There are three versions of the Prototyping Board. 
The EVK 300 is a fully built and tested unit with 
2K bytes of S6834 EPROM. The EVK 200 is kit 
version containing all of the components as on the 
EVK 300 except it has only 512 bytes of EPROM. 
The EVK 100 is a kit containing only the minimum 
number of parts to operate with a TTY I/O device. 


Central to the Prototyping Board is the S6800 MPU. 
All data, address and control lines for the MPU are 
buffered and available at the Bus edge connector. 
There are also additional circuits for clock genera- 
tion, reset and restart. | 


Clock 


The basic clock is derived from a 96502 dual опе- 
shot (IC 12) connected in a regenerative feedback 
loop. A potentiometer is connected to the RC net- 
work of each one-shot which allows the clock to be 
adjusted from 1.0MHz to approximately 300kHz. 
The two phases of the clock are driven from 
2N5771/5772 transistors. Both phases are buffered 
and available at the Bus edge connector. 


А 1MHz crystal frequency generator is also available 
for those applications requiring rigid timing accu- 
racies. The 1MHz clock is optionally strapped into 
the ф 1 one-shot to control the timing accuracy. 
The 1MHz frequency is also buffered and available 
on the Bus edge connector. 


The clocks can be halted in either ф 1 or ¢2 for 
cycle-steal, DMA or slow memory applications. 
Phase 1 is held HIGH by setting the CYCLE STEAL 
control line LOW. Phase 2 is held HIGH by setting 
the MEMORY READY line LOW. 


The S6800 internal registers are dynamic and it is 
necessary to refresh them periodically. It is there- 
fore important that the CYCLE STEAL and 
MEMORY READY lings are not held LOW for more 
than 5 microseconds. Provisions are made on the 
Prototyping Board to protect the microprocessor 
from non-refresh conditions. 


Reset 


The Reset circuit provides a timed reset for Power 
On Reset timing and for the Reset switch. The 
circuit is a timed oscillator which provides a 200 
ms reset pulse. 


Restart 


The starting address of ап 56800 is FFFE/FFFF. 
The contents of these memory locations are put in- 
to the Program Counter register each time the MPU 
is reset. The Evaluation Board traps the FFE/FFFF 
addresses and puts the contents of the two 8-bit 
switch sets (IC 32, 43) on the data bus for each 
address and disabling memory, then gating the first 
set of switches to the Data Bus during FFFE time 
and the second set during FFFF time. The user is 
thus allowed to select any restart address by simply 
selecting a two byte address on the 16 bits of 
switch settings. 


BUS STRUCTURE 


All of the controls to and from Ше S6800 are 
available at the Bus edge connector. This allows 
the user to have complete interface and control to 
the MPU. TTL buffers are used to isolate MPU 
lines from the bus; Other buffers are provided to 
assure that the devices on the board do not violate 
the maximum load capacity when the board is fully 
loaded. Bus polarity is the same as on the MPU 
(data and address true - HIGH). 


The bus buffers are non-inverting 3-state hex 
buffers (8T97). The enable controls to the MPU 
are always active. Controls for the address bus are 
gated by the DMA GRANT line. The data bus is 
controlled by the DMA and R/W lines. 


MEMORY ADDRESS ASSIGNMENT 


Address assignments have been made such that all 
components on the card can run in the upper 8K 
bytes of memory. An address assignment map is 
shown in Figure 1-2 on page 3. АШ I/O devices are 
assigned as shown in Table 1-1, page 3. 


Address decoding is made by use of three 745138 
one-of-eight decoders (IC 44, 45, 54). The first 
decoder (IC 54) selects one 1K-byte block of the 
upper eight 8K-bytes of memory. The output of 
this decoder is for RAM, I/O, ROM, or PROM 
enable lines. The second decoder (IC 44) selects 
one of eight RAM memory chips. The third (IC 45) 
selects I/O devices on the board. 
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Figure 1-2 Memory Assignment Map for the 
AMI Prototyping Board 


ПО PORT ADDRESS ASSIGNMENT 


Serial I/O — TTY 
Status/Read 
Control/Write 
Unassigned 
Peripheral Register A 
Control Register A 
Peripheral Register B 
Control Register B 


Keyboard/Unassigned 
Peripheral Register A 
Control Register A 
Peripheral Register B 
Control Register B 


PROM Burner 
Peripheral Register A 
Control Register A 

Peripheral Register B 
Control Register B 


56830 PIA 3 


Table 1-1 I/O Address Assignment 


A MEMORY DISABLE line is available at the Bus 
edge connector. This line, when LOW, deselects the 
first address decoder disabling all I/O and memory 
devices on the board. An I/O ENABLE line is 
derived from the first address decoder and is avail- 
able at the Bus edge connector. It must be noted 
that I/O ENABLE оп the backplane is not valid 
when MEMORY DISABLE is LOW. 


READ ONLY MEMORY 


The Prototyping Board has assigned locations for 
two 1K byte 96890 ROMs and for four 512 x 8 
86834 EPROMs. The ROM circuits are designed 
such that the locations will also accept two 2K 
byte 16K ROMs (S6831). Thus, maximum memory 
allocation for ROM and EPROM is 6K bytes. The 
prototyping operating system program (PROTO) 
is assigned to the ROM with a starting address of 
FOOO. 


The four EPROM locations may contain any user 
program. Execution can start from beginning 
EPROM location either by selecting EPROM 
starting address of E000 in the restart switches or 
by branching to that address using Ше “С” com- 
mand in the PROTO program. 


RANDOM ACCESS MEMORY 


The RAM is divided into two parts, 512 bytes 
fixed in the highest memory locations and 512 
bytes of moveable memory. 


Since the highest memory locations (FFFE, 
FFFF) are used for restart address, the address 
circuits disable the RAM using a memory disable 
line and force the 16 bit switch address on the data 
bus whenever a Reset occurs. This allows the user 
to vector to any address as his restart address. 


The PROTO program assigns restart vectors for 
IRQ, NMI and SWI whenever it is started (usually 
via Reset). It is therefore important to note that 
the user program must do the same thing if he does 
not use PROTO and restarts from a power down 
mode. 


The stack pointer is assigned to address FF8F in 
PROTO. This allows the remaining RAM to be 
used as stack if so desired. 


A switch option allows 512 bytes of RAM to be 
relocatable. When in the upper portion of memory, 
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the RAM is assigned to addresses ЕСОО to FDFF 
making all 1K-bytes of RAM on the board con- 
tiguous (ЕСОО to FFFF). When in the lower por- 
tion of memory, the 512 bytes are addressed when- 
ever A9 and A15 are not true (0000 — O1FF for 
example). It is thus recommended that RAM be 
assigned to the low address only if the user does 
not add other RAM to his development system. 


PARALLEL I/O 
Three S6820 PIA's give the user a wide range of 


I/O flexibility. The PIA's are assigned addresses as 
shown in Table 1-1. Interface pins of these devices 


are directly connected to the I/O edge connector. : 


The CA2 pin for the PIA at addresses FBC4 is also 
connected to the Урвос input (pin 11) to the 
EPROM socket (IC 46) through a *5V to -50V 
driver. The user is cautioned to use this line such 
that it will not interfere with his I/O function if 
programming an EPROM. For example, if the CA2 
line is connected to an external control function, 
this function may be erroneously activated while 


programming an EPROM. 


19,200 baud 
0 baud 

БО baud 

75 baud 
134.5 baud 
200 baud 
600 baud 
2,400 baud 
9,600 baud 
4,800 baud 
1,800 baud 
1,200 baud 
2,400 baud 
300 baud 
150 baud 
110 baud 


Table 1-2. Bit Rate Generator Switch Settings, 
0 = Closed, 1 = Open 


SERIAL I/O 


SW POSITION 
4 3 
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0 
0 
0 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
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One 56850 АСТА allows the system to communi- 
cate bi-directionally with serial data I/O peripherals 
such as a TTY. A baud rate generator generates all 
standard communication frequencies by switch 
selection. This frequency operates independently 
of the system clock so the MPU frequency can be 
changed without altering the I/O clock rate. See 
Table 1-2 for switch setting and associated fre- 


quencies. A 20 mA current loop interface and an 
RS-232 interface are both available at the I/O 
edge connector. 


Address assignments for the ACIA are given in 
Table 1-1. 


EPROM PROGRAMMER 


A unique feature of the Prototyping Board is its 
ability to program AMI S6834 EPROMs. A third 
PIA latches the address and data information 
for programming the EPROM. The EPROM socket 
programs only the S6834 EPROM, however, an 
adapter plug is available to also program the AMI 
55204А EPROM. Except for the Урвос input, all 
address, chip select, R/W and data I/O pins on both 
EPROMs are completely TTL compatible and are 
driven directly from the PIA outputs. The outputs 
are also available on the I/O edge connector for 
convenience in using another EPROM programming 
socket. | 


Programming is achieved by pulsing Ше Урвос pin 
with -50 volts through the CA2 line of the PIA at 
address FBC4. This line drives the transistor that 
gates the -50 volt source to the вос pin. The 
-50 volt source is switched ON or OFF via the 


УРвос switch. 
INTERVAL TIMER 


The 1MHz clock is divided into two basic interval 
timing pulses, one every 100us and one every milli- 
second, by using three 74160 divide-by-ten counters 
(IC 50, 51, 52). The time intervals may be changed 
only by rerouting the printed circuit lands. These 
basic times are available to the user and are also 
used for EPROM programming. The 1 ms timer 
sets bit 7 of address FBC5 and the 1008 timer sets 
bit 7 of address FBC7. 


DMA 


Three types of DAM implementation are possible 


on the Prototyping Board, a halt processor mode, a 
cycle steal mode and a multiplex mode. A switch 
selects these DMA modes. The switch must be in 
the DMA position for the multiplex DMA mode. A 
delayed clock gives the DMA GRANT line to the 
bus after the “Data Hold” time has passed for a 
multiplexed type of DMA operation. The control 
lines for the halt processor and cycle steal modes 
are available at the Bus edge connector. 
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Chapter 2 


The AMI 6800 Prototyping Board is designed оп 
a single 10%4”X12” printed circuit board. There 
are two edge connectors, one is used for the MPU 
bus and the other for the input and output. Volt- 
age assignments are made such that the card may 
be reversed in a dual connector application without 
destroying the circuits. The connectors are 43X2 
or 86 pins each and fit an Amphenol P/N 225-805- 
43 connector or equivalent. Table 2-1 lists the I/O 
pin assignments. 


Connector Pin Assignment 
Ground 
Ground 
Ground 
Ground 
+5 volts 
+5 volts 
+5 volts 
+5 volts 
+12 volts 
+12 volts 

+15 volts 


A 


(MPU Bus) 


OBA С сл орыны 


Table 2-1. 1/О Pin Assignments 


Physical Description 


It is possible to operate the Prototyping Board by 
using only one connector. All power, ground and 
I/O connect circuits are present in the I/O 
connector so this is all that is essential to connect 
in a minimum system. The Bus connector is for 
expanding the system to add more memory, I/O 
or controls. 

Nominal power requirements are 3.5 amps of +5 
volts and 150mA of -12 volts when 56834 EPROMs 
are used, 


Comments | Connector Pin Assignment Comments 


A 
(cont’d) 


Reserved 
Ag 


Reserved 


Reserved 


Connector Pin Assignment Comments | Connector Pin Assignment Comments 


-50 volts 
V PROG 
EPROM Do 
EPROM Αρ 
EPROM р: 


EPROM Ai 
EPROM De 
Reserved EPROM Ag 
MEMORY READY EPROM D3 
Reserved EPROM Аз 


ши | EPROM D4 
Reserved EPROM A4 
HALT О.С. Input EPROM Ds 
Reserved EPROM А; 
ПО SELECT Output EPROM Dg 
Reserved EPROM Ag 
RESET Output/ EPROM D7 
О.С. Input EPROM A7 
16 X Baud Rate EPROM R/W 
RESET SW Input EPROM Ag 
Reserved 
RES. SW DISABLE О.С. Input 
TSC 


1.000MHz Clock 
Bus ¢1 Clock 
2.4576MHz Clock 
Bus $2 Clock 
IRQ O.C. Input 


BA 
NMI O.C. Input 
REFRESH GRANT 
CYCLE STEAL 
DELAYED 
DMA GRANT 


DMAGRANT OUT 
DMA GRANT IN 
INTP OUT 
ANTP IN 
Reserved 
- 50 volts 


A VMA 
(cont'd) Reserved 
ENABLE 
Reserved 
MEMORY DISABLE Open 
Collector 
Input 


9 0-10 QU G мн 


Table 2-1. I/O Pin Assignments (Continued) 


Connector Pin Assignment Comments Connector Pin Assignment Comments 


РАв-1 B 

PA4.2 (cont'd) 

PA4.1 

РАз-2 

PA3-1 

PA2-2 

РА2-1 

РА1.2 

РА1-1 

ΡΑρ.ο +15 volts 

.РАо-1 З +15 volts 

CA1—2 *12 volts 

СА +12 volts 

0Αο.ο +5 volts 

CAg—1 +5 volts 
RTS +5 volts 

READER CONTROL +5 volts 

CTS Ground 


TTY OUT + Ground 
DCD Ground 


Ground 


Table 2-1. I/O Pin Assignments (Continued) 
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The board will be supplied with a prototyping 
operating system program (PROTO). The program 
resides in ROM with a starting address of F000. 
The various routines within PROTO are called by 
entering via the TTY keyboard one of the com- 
mands described in the following paragraphs. A 
command consists of one character command 
identifier followed by additional parameters, if 
needed, separated by blanks or commas. All 
commands end with a carriage return. Since no 
action is taken before the carriage return, an input 
line may be deleted by the use of the TTY ESCAPE 
key. 


L, ADDL, ADDH, OFFSET 


The Load tape command loads data from a hex 
formatted tape (see Appendix A) into the user's 
memory between ADDL and ADDH, inclusive. The 
OFFSET is added to the memory address specified 
on the tape to form the actual memory starting 
address for the data stored. If a byte to be stored 
into memory has an address outside of the range 
ADDL, АРОН, it is not entered into memory, but 
a Delete character (H'FF) is transmitted to the 
terminal. 


Example: L 0100 02FF FFFA 


The address range in the L command is optional, ' 


and if omitted is assumed to be the full range of 
memory (0000—FFFF). The offset parameter is 
also optional, and if omitted is assumed to be zero 
(0000). Thus the L command with no parameters 
loads the tape into the memory locations specified 
on the tape with no offset. The offset value in the 
L command is a two's complement signed number, 
entered in unsigned hexadecimal. For example, an 
offset of -6 is entered as FFFA. 


Software 


If an attempt is made to load non-existent memory, 
or ROM, the loading operation will terminate, 
typing out the address and the message “BAD 
ADR". 


In operating the Load command, PROTO turns 
on the tape reader and scans the tape for the 
first ASCII "8", which indicates start of record. 
It is not necessary to position the tape at the first 
record of a tape file since each record contains 
its own starting address. 


PROTO will load data records until it encounters 
an end of file (EOF) record or a tape error (Check 
Sum or illegal character). When PROTO reads a 
header record (start of record and address), it 
translates the header into ASCII characters and 
prints the result. The Check Sum is the binary 
sum of all characters in the block. 


PROTO does not list the tape contents as the tape 
is being read. 


When PROTO encounters an end of file record 
or a tape error, it turns off the reader and prints 
“EOF” or *CKSM ERR” respectively. 


P, ADDL, ADDH, OFFSET 


— 

The Punch hex format command causes PROTO 
to punch on the TTY papertape the contents of 
memory between ADDL and ADDH, inclusive. 
Each record is punched with a four-digit hex 
address of the starting byte of the record. This ad- 
dress is derived from the memory address of the 
byte being punched, plus the offset value, OFF- 
SET. The offset is optional, and if omitted is as- 
sumed to be zero. 
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АШ data records are punched in hex format. 
Records using this command (except the last 
record) contain 16 bytes of data plus the start 
code, byte count, address, and the checksum. 


The P command does not cause an EOF record 
to be punched so that several disjoint blocks 
of memory can be combined on one tape file. 


Example: P F000 РОТЕ ОЕОО 


5, ADDR, BYTE1, BYTE2, — — —, BYTEN 


The Set memory command writes Ше 8-bit data | 


words specified by BYTE1 to BYTEN into con- 


secutive memory locations starting at ADD. 


If ADD has more than 4 (hexadecimal) characters 
or if any of the data bytes have more than 2 
characters each, only the last 4 or 2 characters are 
used respectively. 


Example:S 0000 86 05 97 28 


Memory locations at 0000 thru 0003 are loaded 
as shown. 


D, ADDL, ADDH 


The Display memory command prints the contents 
of memory between ADDL and ADDH, inclusive, 
in hex format. Up to sixteen bytes per line are 
printed, preceded by the hexadecimal address of 
the first byte of the line. A carriage return is forced 
after a byte having a low order digit of F in its 
memory address is printed. 


Example: Ὁ ЕС00 ЕСЕ 


Two lines of memory contents are printed as 
follows: 
FCOO 00 ΟΙ 02 03 04...0E0F 
ЕС10 10 11 12 13 14...1E1F 


x 


G, ADDR 


The Go command starts execution of the user 
program at the address specified by the input 
parameter. To insure that all registers contain the 
same information they held before the user pro- 
gram was interrupted, PROTO pushes into the 
stack the copy of the user registers that it keeps 
at locations FFEB—FFF3 (СС, В, A, X, Р, 8) then 
executes an RTI instruction. The user can change 


10 


the memory address), 


the initial values of the registers by changing the 
contents of these locations. 


Example: С 300 


Program will branch to address 0300 and start 
execution from that point. 


R 


The Registers command prints the contents of 
memory locations FFEF—FFF3 which contain 
the values that were in the user’s C, B, A, X, P, and 
S registers (in that order) when the user’s program 
was last interrupted. 


B, ADDL, ADDH, ROMAD 


The Burn command copies the contents of user 
memory into the EPROM in the programming 
socket, beginning with memory location ADDL 
through ADDH, inclusive, to EPROM locations 
beginning with address ROMAD. Each byte is 
burned in with 20 3-ms pulses of -50V on the 
Урвос ріп (рт 11) of the EPROM. Before at- 
tempting to write into the EPROM, the contents of 
the EPROM are compared with the user memory 
data byte to verify that the EPROM will take the 
byte (PROTO will not attempt to program a 
EPROM location to logic LOW which already con- 
tains logic HIGH). After the 20 pulses, the new ` 
contents of the EPROM are verified against the 
memory byte to be sure the data was indeed 
written. If the byte did not program, a NAK code 
is typed out on the terminal, and another try is 
made, up to a maximum of three tries. 


If the preverify encounters a EPROM location 
containing HIGHs where the memory byte has 
zeros, PROTO will type out the memory address, 
the memory byte in binary, the EPROM byte in 
binary, and the EPROM address (if different from 
then stop. If after 
attempting to write data into the EPROM, the 
data does not program, or erroneous bits show 
up, a similar display occurs for the failing location, 
with the additional message “BAD ADR" typed 
on the same line. 


The EPROM address ROMAD is optional, and if 
omitted, ADDL is used, with only the least signi- 
ficant nine bits of the address being used. If the 
address range ADDL, ADDH is omitted, the 512 
bytes beginning at ЕС00 are used, and the EPROM 
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is checked to insure it contains all LOWs before 
any locations are written. If not, four question 
marks are typed and the B command is aborted. 


V, ADDL, ADDH, ROMAD 


The Verify command compares user memory bet- 
ween ADDL and ADDH, inclusive, with the corres- 
ponding locations in the EPROM in the program- 
ming socket, beginning with EPROM address 
ROMAD. Each location that does not match is 
typed out in the following format: 
aaaa mmmmmmmm рррррррр тїт 

where "аааа" represents the user memory address, 
“mmmmmmmm” represents the memory byte, in 
binary, and ‘“‘rrrr’’ represents the EPROM address, 
if different from the memory address (in the low 
nine bits). Nothing is typed for matching locations. 
The typeout may be aborted by typing an ESC 
key during the typeout. 


If the ROMAD parameter is omitted, ADDL is 
assumed. If no parameters are supplied in the 
command, the whole EPROM is compared to the 
contents of ЕС00 — FDFF. 


I, ADDL, ADDH, ROMAD 


The Input command copies the contents of an 
EPROM in the programming socket into memory 
beginning at the address ADDL through ADDH, 
inclusive, from the EPROM address ROMAD. If 
ROMAD is omitted, ADDL is assumed. If no para- 
meters are supplied, the entire EPROM is copies 
into the RAM area, ЕСОО — FDFF. An attempt to 
copy an EPROM into non-existent memory will 
abort the command with the message “ВАР ADR”. 


M, ADDL, ADDH, DEST 


The Move command copies memory from the 
range ADDL — ADDH, inclusive, to the RAM loca- 
tions starting at DEST. This copy begins at the 
lower address, so if DEST lies within the range 
ADDL — ADDH, some of the original data will be 
lost, and other parts will be duplicated. 


E 


The End of Transmission command is used to 
cause an EOT character to be punched on the 
paper tape. After a field has been punched, an EOT 
will terminate the record and punch a trailer tape. 
When reading a record, the reader will stop at the 


EOT character. If no EOT character is present, 
the reader must be manually turned off and the 
Reset switch must be pressed to enter the operating 


system program. 
THE SUBROUTINE ROM 


Many of the monitor’s functions are accomplished 
with the help of the Re-Entrant Self-Relative 
Subroutine ROMs (RS). This standard ROM, 
which can be considered a software extension to 
the 6800 instruction set, is also available to be used 
by the user both on the prototype board and in his 
final production system. The user can call one of 
the 25 (RS) subroutines with an SWI instruction 
followed by the number of the desired subroutine. 
The details of the subroutines available in the 
(RS) user's manual. 


The user should be aware of the fact that the 
(RS) pushes from 7 to 10 bytes of data onto the 
stack, depending upon which subroutines are called. 
This means that if the user calls (RS) routines, һе 
must make sure that the necessary memory space is 
available for stack expansion. 


Since PROTO assigns its own stack area, the user 
need not be concerned about how (RS) is used. 


INTERRUPTS 


Of the four available interrupt vectors, IRQ, RE- 
SET and SWI are used by PROTO while NMI is 
left for the user. The vectors are in RAM (except 
for RESET which is switch controlled) so the user 
writing his won program can completely control 
the system. 


The upper memory locations are RAM. If the user 
expects either NMI or IRQ interrupts to occur, he 
must initialize the vector addresses to the starting 
address of the IRQ and NMI handler routines. 


PROTO must have control of the RESET vector so 
that the RESET switch on the Prototyping Board 
can return program control to PROTO at any time. 


The reset routine copies the contents of the B, A, 
X, CC, and S registers into a fixed area of memory. 
This means that the program can be aborted at any 
time by using the reset switch while still saving all 
the registers except the program counter. Unfor- . 
tunately, the contents of the program counter are 
lost. 
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It is possible for the user to use the NMI interrupt 
to abort a program execution without losing the 
contents of the P and C registers. This condition is 
automatically set in the NMI handling routine 
when PROTO is called. This interrupt vector will 
cause the contents of the user's registers to be 
printed when the NMI lines goes low. 


Since the SWI instruction is used to call sub- 
routines between 00 and H'18 from (RS)? as 
described in Chapter 3 “The Subroutine ROM", 
the user is somewhat limited in the ways he can use 
SWI instructions. However, he can access an SWI 
handler routine in his own program by an SWI 


instruction followed by а byte containing the: 


decimal number less than H'80 but greater than 
H'19 « n « H'80 sequence, PROTO passes control 
at address FFF4. If the user expects to access his 
own SWI routine and use PROTO, he must use the 
Set Memory command to store the address of this 
routine at locations FFF4 and FFF5. 


PROTO makes sure that the user's SWI routine is 
entered from the stack with all registers containing 
the same information that they would hold if the 
routine were entered directly through the SWI 
vector. 


BREAKPOINTS 


Breakpoints allow the user to halt his program and 
examine the contents of the internal registers. 
PROTO provides two types of breakpoints. In this 
system, breakpoints are actually debugging routines 
that can be called from the user's program just like 
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(RS)? routines. (See Chapter 3 “The Subroutine 
КОМ”.) 


Each breakpoint requires a two byte calling 
sequence: an SWI instruction followed by anumber. 


Breakpoints may be inserted either by reassembling 
the program with the extra SWI instructions added 
the Set Memory command may be used to replace 
parts of the code with SWI instructions. Note that 
the second method is not satisfactory for the snap- 
shot option (described below) since the replaced 
code must be restored before execution can be 
continued. When using the second method, the user 
must make sure that he replaces the first two bytes 
of an instruction. If the SWI replaces the second or 
third byte of an instruction, it may be interpreted 
as an address rather than an opcode. 


The different types of breakpoints are: 
1. Print registers (SWI, Н 80) 
2. Snapshot (SWI, Н'81) 


The sequence SWI, H'80 saves the user's registers at 
the vector stored in FFF4 — FFF5, prints their 
contents (in the order СС ВВ АА XXXX PPPP 
SSSS), then returns control to PROTO. 


The sequence SWI, H'81 prints out the contents of 
the user's registers then continues executing the 
user's program starting at the address following the 
byte containing the number H'81. Note that if this 
address does not contain a valid opcode, unpredict- 
able results will occur. 
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Chapter 4 


The cost of microprocessor software development 
is many small items: the cost of assembly time, 
storage time, transmission time, loading time, 
design, development, documentation and debug. 
The cost of many of these items continues to ac- 
cumulate even though a subroutine library exists 
for common functions, in particular the time and 
cost of transmission, loading and ROM pattern 
generation. 


The purpose of Reentrant Self-Relative Subroutine 
ROMs (RS)? is to give the user a hardware subrou- 
tine package which exists in the breadboard design 
from the beginning. The programs are documented, 
debugged and constitute some of the most com- 
monly performed subroutines that assembly lan- 
guage programmers generate. The subroutines are 
not complex and are not intended to be. Any sub- 
routine could easily be reproduced by a user; how- 
ever, the intention is that the routine exists now 
and the user does not have to reproduce it. The 
routines tend to be slow because of their generality 
but the intention is immediate availability. If a 
particular program is time critical, it can be regen- 
erated later when the time critical elements are 
known. 


CONCEPTS 


The ( Rs)? uses a number of concepts to allow flex- 
ibility in the user environment. The first concept is 
self-relative programming. This simply means that 
the program will function correctly regardless of 
where it is located in memory. The user will need 
to know where it is located so he can reference it. 
However, this actual location will only have to be 
recorded once. The self-relative program uses rela- 
tive address instructions for program control and 
the index and stack pointer instructions for data 
manipulation. 
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Reentrant Self-Relative 


Subroutine ROMs (RSRSRS)- (RS) 


The stack is used for temporary storage of data to 
prevent (RS)? from being tied to fixed addresses. 
This allows the program to be reentrant; i.e. the 
program can be called at different times without 
completing the previous call. This means that the 
same routine can be called by the interrupt proces- 
sor as well as by the program which was inter- 
rupted. The concept of reentrant code is not to be 
confused with recursive code; even through recur- 
sive coding could have been used in the subroutine 
package, it is not. 


The subroutine calling mechanism uses the SWI 
instruction followed by a single byte index for the 
particular subroutine invoked. This was chosen 
because the SWI is the most convenient from an 
internal programming viewpoint and the safest. It 
is safe because an error in a ROM can be cor- 
rected by replacing the subroutine ROM without 
altering any other user ROM. If direct addresses to 
subroutine code exist in the user's domain, his 
ROMs would change if the location of the routine 
in the (RS)? changed. 


IMPLEMENTATION 


The user places the base address of the (RS)? into 
the SWI vector address. Each SWI instruction re- 
quires an index byte to follow the SWI instruction 
where the index indicates the function to-be exe- 
cuted. After the function is performed, the user 
program will continue with the instruction follow- 
ing the index byte. In essence, a whole new set of 
instructions have been created for the user which 
are two bytes long. 


To make the entry easier, a macro call can be pro- 
vided which will assemble the correct index byte 
when the function name is used. A set of EQU 
assembler commands associates the name and the 
index byte value. 
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Example: 
MUL8 EQU 10 
MUL16 кой 11 
DIV8 EQU 12 
DIV16 EQU 13 
FUN MACRO INDEX 
SWI. 
BYTE INDEX 
MEND 
FUN MUL8 


Each (RS)? ROM will have the ability to interro- 
gate the index byte and vector to the appropriate 
subroutine if it is included in the ROM. If the 
index extends the number of subroutines included 
on the ROM the number is subtracted from the 
temporary index value and the next (RS)? ROM is 
automatically branched to. This allows the user to 
select any of several subroutine sets, where each set 
of subroutines is represented by a separate ROM. 
The selected ROMs are concatenated together into 
a contiguous region of the user's memory space, 
and are automatically linked together by the index 
value. Thus the actual value of the index byte for 
any particular subroutine is the sum of the total 
number of subroutines in the physically previous 
(RS)? ROMs plus the offset in its own ROM. The 
document for each (RS)? ROM will therefore 
include both the descriptions of the subroutines in 
that ROM and the relative index values for these 
subroutines. It must be noted that address assign- 
ments for (RS)? ROMs must be made beginning at 
1K boundary addresses. 


THE PROTO SYSTEM 


The 2K X 8 ROM provided with the PROTO pro- 
totyping system includes a set of (RS)? subrou- 
tines with a slightly different linkage from the 
standard (RS)? form, although the calling sequence 
is the same. In particular, the provision for addi- 
tional subroutines in the form of other (RS)3 
ROMs is limited to a total of 127 subroutines. The 
first additional (RS)? ROM address must be placed 
in RAM location FFF4 (which can be set via the 
Set Memory command or modified by an initializa- 
tion code in a user program). Also, since it is incor- 
porated into a larger program, the whole of which 
very nearly fills the 2K bytes of its ROM, the 
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(RS)3 part of the ROM does not start on an even 
page boundary, making it awkward for isolated 
use. However, the 24 subroutines included in this 
ROM are available to user program calls with the 
SWI calling sequence, as described. 


(RS)? IN PROTO — SUBROUTINE 
DESCRIPTIONS 


Each of the subroutines in the ROM are described 
here, giving the index for the call, a mnemonic sub- 
routine name, a descriptive title, and the number 
of bytes in the stack used by the call (including the 
SWI). A brief description of the subroutine opera- 
tion is also given, with the entry requirements, the 
exit conditions, and the registers altered by the 
subroutine. Only those registers indicated are 
altered by any (RS)? subroutine. 


Stack 
Index Name Title Bytes 
00 PUSH ALL Push АП Registers 14 


Five bytes are pushed onto the stack, containing, 
respectively, the Condition Codes, the B and A 
accumulators, and the Index Register. No registers 
are altered (except the stack pointer, which is 
decremented by 5). 


Entry: Any 

Exit: Stack: SP +1 +2 +3 +4 +5 (=old SP) 
CC, B, A, XHXL 

Registers Altered: SP 

01 POPALL Pop (=Pull) All Registers 9 


Five bytes are pulled from the stack into the Con- 
dition Codes, the B and A accumulators, and the 
Index register, respectively. The Stack Pointer is 
incremented by 5. 


Entry: Stack, as by PUSH ALL 


Exit: CC,B, A, X pulled from stack 
Registers Altered: CC, B, A, X, SP 
02 TXAB Transfer Index Register 9 


to A and B 


The most significant eight bits of the index register 
are copied to the A accumulator, and the least 
significant eight bits are copied to the B accumu- 
lator. 


Entry: Any 
Exit: A, B loaded from X 
Registers Altered: A,B 


Stack 
Index Name Title Bytes 
03 TABX Transfer A and B to 9 
Index 


Accumulator A is copied to the most significant 
byte position of the index register, and accumula- 
tor B is copied to the least significant byte position 
of the index register. 


Entry: Any 
Exit: X loaded from A, B 
Registers Altered: X 
04 XABX Exchange A and B with 12 


Index 


The contents of the Index register and the two 
accumulators are exchanged, A with the most signi- 
ficant byte of X, B with the least significant byte. 


Entry: Any 

Exit: А, В and X exchanged 

Registers Altered: A, B, X 

05 PUSHX Push Index Register 11 


The contents of the index register is pushed onto 
the stack. The Stack Pointer is decremented by 
two. 


Entry: Any 
Exit: Stack: SP +1 +2 (=old SP) 
XH XL 
Registers Altered: SP 
06 PULLX Pop (=Pull) Index 9 


Register from Stack 


Two bytes are pulled from the stack into the index 
register, and the stack pointer is incremented by 
two. 


Entry: Two bytes on stack 
Exit: 
Registers Altered: 


X pulled from stack 
X, SP 
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Stack 
Index Name Title Bytes 
07 ADDXAB Add IndextoAandB 14 


Add the contents of the Index Register to the two 
accumulators, as a 16-bit sum, leaving the result in 
the two accumulators. The most significant byte is 
assumed to be in accumulator A. The condition 
codes are set according to the result. 


Entry: Addend in X, augend in A, B 


Exit: Sum in А, В 
Condition 
Codes: H = carry from bit 11 to 
bit 12 of sum 
N = bit 15 of sum 
7 = 1if sum is zero; else = 0 
У = 1 if two’s complement 
overflow 
C = carry out of bit 15 of 
sum 
Registers Altered: A, B, CC 
08 ADDABX Add A and B to Index 9 


Register 


Add the contents of the two accumulators to the 

Index register, leaving the 16-bit sum in the index 

register. Accumulator A is assumed to be more sig- 

nificant than accumulator B. The condition codes 

are set according to the result. 

Entry: Addend in A, B; augend in X 

Exit: Sum in X 

carry from bit 11 to 

bit 12 of sum 

bit 15 of sum 

1 if sum is zero, =0 

otherwise 

1 if two’s complement 

overflow 

= carry out of bit 15 of 
sum 


u 


Condition 
Codes: 


H 
N= 
7 = 
У 
С 


Registers Altered X, СС 
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Stack 
Index Name Title Bytes 
09 ADDAX Add A to Index 9 
Register 


Add the A accumulator to the contents of the 
Index register, and return the sum to the index 
register. The Condition Codes are set according to 
the result. 

Entry: Addend in A, augend in X 

Exit: бит in X 


Condition 
Codes: (Same as ADDABX) 
Registers Altered: X, СС 
ОА ADDBX Add B to Index 9 
Register 


Add the contents of the B accumulator to the 
Index register, and leave the sum in the Index 
register. The Condition Codes are set according to 
the result. 


Entry: Addend in B, augend in X 


Exit: Sum in X 

Condition 

Codes: (Same as ADDABX) 
Registers Altered: X, CC 
OB SUBXAB Subtract Index from 14 


A,B 
Subtract the contents of the index register from 


accumulators A and B as a 16-bit difference. The 
Condition Codes are set according to the result. 


Entry: Subtrahend in X, minuend in A, B 
Exit: Difference in A, B 


^ 


Condition 

Codes: Н = undefined 

N = bit 15 of difference 

Z = 1if result is zero, =0 

otherwise 

1 if two’s complement 

overflow 

= borrow into bit 15 of 
difference 


A, B, CC 


о < 
н 


Registers Altered: 
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Stack 


Index Name Title Bytes 


Subtract A and B from 9 
Index Register 


Subtract the contents of the A and B accumulators 
from the Index register, leaving the difference in 
the Index. The Condition Codes are set according 
to the result. 


Entry: Subtrahend in A, B; minuend in X 
Exit: 


0С SUBABX 


Difference in X 


Condition 
Codes: (Same as SUBXAB) 
Registers Altered: Х, CC 
OD SUBAX Subtract A from 9 


Index Register 


Subtract the contents of the A accumulator from 
the contents of the Index register and return the 
difference to the index register. The Condition 
Codes are set according to the result. 


Entry: Subtrahend in A, minuend in X 


Exit: Difference in X 


Condition 
Codes: (Same as SUBXAB) 
Registers Altered: Х, CC 
OE SUBBX Subtract B from Index 9 


Register 
Subtract the contents of the B accumulator from 


the Index register, leaving the difference in the: 


index register. The Condition Codes are set accord- 
ing to the result. 


Entry: Subtrahend in B, minuend in X 


Exit: Difference in X 
| Condition 

Codes: (Same as SUBXAB) 
Registers Altered: X, CC 
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Stack 
Index Name Title Bytes 
OF P2HEX Print Byte in Hex 15 


The byte pointed to by the address in the Index 
register is converted to hexadecimal notation in 
ASCII, and output to the ACIA located as follows: 
memory locations FFF6—FFF7 contain an address 
of a pair of bytes (indirect pointer) which in turn 
contain the address of the ACIA status register. 


FFF7 iL 

FFF6 iH 

1+1 aL 

i aH 

ані АСТА Data 
а АСТА Status 


Each byte of Ше output is stored into Ше АСТА 
data register after bit 1 of the Status register is 
true. The Control register of the ACIA is not al- 
tered, and the Data register is not read by this 
routine. The Index register is incremented past the 
byte which is output. 

Entry: Memory byte at (X); ACIA at (FFF6) 

Exit: (two ASCII bytes output) 

Registers Altered: x 


10 P4HEX Print Address in Hex 15 


The two bytes in memory pointed to by the Index 
register are converted to four ASCII digits and out- 
put to the ACIA located at the address pointed to 
by the pointer pointed to by the byte pair at 
FFF6—FFF7 (see P2HEX). The Index register is 
incremented by two. 

Entry: Two bytes at (X); АСТА at ((FFF6)) 

Exit: (four ASCII bytes output) 


Registers Altered: | X 


11  PRINTA Print the Byte in A 10 


The byte in accumulator A is output to the ACIA, 
the address of whose address is in locations FFF6— 
FFF7. No registers are altered except the АСТА 
data register. 


Entry: Character in A 
Exit: 
Registers Altered: 


(one byte output) 
None 
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Stack 
Index Name Title Bytes 
12 PMSG Print Message String 12 


A message string, the first byte of which is pointed 
to by the Index register, is output to the АСТА, the 
address of whose address is in locations FFF6— 
ЕЕЕТ. The string is terminated by an ASCII EXT 
(=hex 04), and the Index register is left pointing to 
that byte on return. 


Entry: Character string to (X) terminated by 04; 


АСТА at ((FFF6)) 
Exit: (in ASCII bytes output), X pointing to 04 
byte 
Registers Altered: X 
13 VALAN Validate AlphaNumeric 11 


The character pointed to by the Index register is 
analyzed, and the Carry flag is set if it is a letter or 
digit; if it is not a hexadecimal digit, the Overflow 
flag is set. Other than the condition codes, no regis- 
ters are altered. 


Entry: Memory byte (ASCII) at (X) 


Exit: Condition 


Codes: undefined 

undefined 

0 

О if character in range 
0—9, А-Е; else = 1 

1 if character in range 
0—9, А- 7; else = 0 


H H ft 


о «мяшщ 
и 


Q 
Ω 


Registers Altered: 


14 INPUTA Input ACIA byte to A 9 


One byte is input from the ACIA, the address of 
whose address is at location FFF6—FFF7, and this 
byte is returned to accumulator A. The ACIA is 
not written to, and except.for the A accumulator, 
no registers are changed. (RS)? samples bit 0 of the 
status register of the ACIA, and when it goes to 
one, reads the data register. The input byte has bit 
7 removed (set to zero). 


Entry: (one byte input) 
Exit: Character in A, bit 7-0 
Registers Altered: A 
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Stack 
Index Name Title Bytes 
15  СОМНВ Convert Hex String 11 


to Binary 
A string of characters in memory beginning at the 
address in the index register is scanned for valid 
Hexadecimal digits; when one is found, it and all 
immediately following hex digits are converted to 
a binary number, which is left in the A and B 
accumulators (A is more significant). When this 
routine is called, the maximum length of the string 
is in the B accumulator. On exit, the Carry flag is 


set to one if the conversion resulted in a valid’ 


binary number, and the index register is left point- 
ing to the next character in the string, or if the 
string is exhausted before finding any hex digits, to 
the last character of the string. 


Entry: Character string (including ASCII hex num- | 


ber) at (X) 
Max string length in B (<128) 


Exit: Binary number in A, B 
Condition 
Codes: Н = undefined 
М = undefined 
Z = undefined 
V = undefined 
C = 1 if valid number; = 0 if 
not 
Registers Altered: A, B, X, CC 
16 INDEX Multiply A X B and 12 


Add to Index 


The contents of the A accumulator is multiplied by 
the contents of the B accumulator, and the prod- 
uct is added to the Index register. The Condition 
Codes are set according to the result. 


Entry: Multiplicand in A, Multiplier in B, augend 


in X ^ 
Exit: Sum іп X 
Condition 
Codes: (Same as ADDABX) 
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Stack 
Index Name Title Bytes 
17 MUL8 Multiply А Times B 12 


Multiply the contents of the A accumulator times 
the contents of the B accumulator, and leave the 
product in both accumulators as a 16-bit number, 
with the most significant part їп А. This 15 an un- 
signed multiply, and if either or both of the factors 
is negative (two’s complement signed) the product 
will not be а true signed product of the signed 
factors, as may be seen in this formula: 


(-n) X(m) = (256 - n) Xm = 256m + (-nm) 
The condition codes are nonetheless set according 
to the result. 
Entry: Multiplicand in A, multiplier in B 


Exit: Product in A, B 
Condition 
Codes: H = undefined 
N = bit 15 of product 
У= 0 
Z = 1 if product is zero; 
otherwise = D 
С= 0 
Registers Altered: A, B, CC 
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Chapter 5 


This chapter details Ше specific requirements of 
the AMI 6800 Prototyping Board that the opera- 
tion must meet in order to make the board fully 
functional. The board requires a power supply and 
an I/O device such as a TTY terminal in order to be 
fully operational. 


Power can be applied through either or both edge 
connectors. The edge connector is an Amphenol 
P/N 225-805-43 or equivalent. The basic board 
(with TTY current loop interface and no EPROM 
devices) requires only +5 volts for power. Both +5 
and -12 volts are required for any operation using 
EPROMs and +5 and + 12 volts are required for 
RS-232 operations. Table 5-1 lists the current 
specifications for each voltage. 


General Logic 
EPROM and RS-232 
RS-232 

EPROM Programming 


Table 5-1. Prototyping Board Current 
Requirements 


The Board requires a standard TTY ARS 33 type 
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Operating Procedures 


terminal or equivalent as all operating programs 
assume TTY and ASCII protocol. A baud rate 
switch (see Figure 5-1) is provided for all standard 
baud rates. Default condition (open or no switch) 
is 110 baud. See Table 1-2, page 4 for full details 
on the baud rate selection. 


The clock frequency is selected via the Clock swith 
(see Figure 5-1). Clock source is either from a 
crystal or a pair of one-shots. If the crystal source 
is used, the one-shot times must not be shorter 
than 430 ns for phase 1, and 450 ns for phase 2; 
the total time cannot exceed 1 us. 


If a TTY is used through the current loop inter- 
face, the following jumper must be installed to tie- 
up the DCD and RTS input: 


Jumper Pins B61 & B63 on the I/O 
edge connector to +5 volts. 


The DMA switch should be down (Halt Processor 
or Cycle Steal Modes) if no DMA is being used. Use 
the up position only for systems using Multiplex 
mode of DMA. 


The -50 volt switch should be off unless pro- 
gramming an EPROM. 


Four holes are provided in the board for soldering 
heavy gauge wire directly to the board if so de- 
sired. They are marked as to which voltage lead 
goes to which location. 
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= Г) Reset 


CRYSTAL} | CLOCK 
1-SHOT — SOURCE 


[J BAUD BIT 15 
0 RATE | 
RESTART 


ADDRESS і 
вто 


CONNECTOR A CONNECTOR B 


Figure 5-1. AMI 6800 Prototyping Board Switch Configuration 
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Chapter 6 


Although AMI has taken special precautions to 
ensure reliability of Prototyping Boards by conser- 
vative design and component testing and burn-in, 
occasions may arise where the user may need to 
troubleshoot a failure. Special handling must be 
considered for all MOS devices. The following pro- 
cedures are recommended to test the board for a 
failure condition. 


The first check that should be made is to check for 
proper 5V distribution throughout the board. This 
is best done with a digital volt meter, but а Scope is 
adequate. Be sure that the voltage does not drop 
below about 4.8V at any point on the board, refer- 
enced to the local ground plane. 


The next section to check in detail is the clock sec- 
tion. It can be tested by observing the oscilloscope 
photographs that follow and the corresponding 
reference number on the schematics. The pin 
numbers for scoping are referenced on the bottom 
of each photograph. For all operations in this 
„зесйоп, it is assumed that the switch if it is installed 
is set for single-shot regenerative triggering and, if 
it is not installed, the jumper is set for single-shot 
regenerative triggering. 


Once the clock section is working the other sections 
can be tested in the following order. 


1) Reset 

2) Interval Timer 

3) Restart 

4) CPU Section 

5) Memory and I/O 

6) Serial and Parallel I/O Operation 
7) PROM Burner Section 


The accompanying photographs should be of great 
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Troubleshooting Procedures 


help in troubleshooting the board. In the following 
photographs, if more than one trace is present, the 
second trace shows the OV reference level. There | 
were several points on the board that were difficult 
to photograph due to the non-repetitive nature of ` 
the wave form. To observe these wave forms, the | 
best procedure is press the Reset button repeatedly 
and observe the wave form upon release. The opera- 
tion of the Restart circuits, ACIA selection and 
ACIA output may be observed in this manner. 


The majority of the pictures in the following 
Sequence were taken with the Prototype Board in 
an idle state waiting for an input from the TTY. 
Pictures 18, 19 and 21 were taken using the Reset 
button. 


Picture 23, which is the Memory disable pin, is also 
the one activated by the Restart circuitry. This is 
normally a one shot operation following depressing 
of the Reset button. For the purposes of this 
picture, the processor was set in a small short loop 
where it was just loading the index from FFFE and 
FFFF to show the wave form. It will normally not 
repeat that quickly. 


Pictures 26 and 27 show the PROM burner opera- 
tion and the relative wave forms at 10V per ст 
vertically, with the second line being the reference 
line in the photograph. These photographs should 
be very useful in sorting out any difficulties with 
the board. 


In the event a Prototyping Board does not func- 
tion when power is applied and after all trouble- 
Shooting directions have been followed without 
success, the board can be returned directly to AMI 
for repair. The charge for repair by AMI for an 
EVK 300 Kit is $125.00 after the warranty has 
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expired. (In the event of obvious user gross negli- Enclose a check for the amount specified payable 
` gence, higher repair charges may be quoted.) to AMI. AMI will repair the board and return it. 
Be sure your name and mailing address is enclosed 
Repack the board in the shipping box and mail it to: so that the board can be promptly returned. An 
indication of the failure mode would also be of 
EVK Service great assistance. 
c/o American Microsystems, Inc. 
3800 Homestead Road 
Santa Clara, CA 95051 
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Appendix A 


The AMI 6800 Hex Tape format provides a com- 
pact representation of binary data patterns for 
transmission using ASCII communication termi- 
nals. 


The Hex tape is organized into data records with 
each record containing information in the same 
format. The record information consists of type, 
length, address, data and checksum: All records 
begin with an ‘S’ character for start of record 
identification. All information on the tape which 
is not between a start of record and the checksum 
is ignored. 


TAPE FORMAT 
ASCII 
Character Description 
1 Start of record (S) 
2 Type of record 
0 — Header record 
1 — Data record 
9 — End of file record 
3—4 Byte Count 


Since each data byte is repre- 
sented as two hex characters, the 
byte count must be multiplied 
by two to get the number of 
characters to the end of the 
record. (This includes checksum 
and address data.) 
Address Value 


The memory location where this 
record is to be stored. 


Data 


Each data byte is represented by 
two hex characters. 


Checksum 
The one’s complement of the ad- 


N+1, N+2 


6800 Hex Tape Format 


ditive summation (without carry) 
of the data bytes, the address, 
and the byte count. 


Example Data Record 
Memory Contents 
Address Data 
A000 10 
A001 1A 
A002 20 
A003 2A 
Data Record Contents 
Character Tape 
1 Start of record S 
2 Type of record l- 
3 Byte count 0 
4 E 
5 A 
6 0 
7 Address 0 
8 0 
9 Data byte 1 E і | 
10 90 3 2: 
11 Data byte 2 1 58 
12 E E E- 
13 Data byte 3 2 Ë 
14 ΚΒ 
15 Data byte 4 2 
16 A 
17 Checksum 8 
18 4 


АМЕ. 


The format for all hex tape records is diagrammed below. 


Header Data End-of-File 
Character Record Record Record 

1 Start of Record 8 | 53 | s 

2 Type of Record 1 | 39 | 9 

3 

à Byte Count 16 08 

5 Жай 30 

ress 

6 (if any) 1100 30 0000 

7 30 

8 30 

9 Data 98 FC 
10 

(Checksum) 
02 | 

: A8 (Checksum) 

N Checksum 


е 


АМЕ. 


Appendix В Parts List for Prototyping Board 


IC 50,51,52 


ш | ға С s — 


АМІ 56800 74160 Asynchronous 


Prototyping Board Decimal Counter 
AMI 56800 Micro- IC 16 748257 Quad 2-bit IC 31,42 
processor Multiplexer 
AMI 86810-1 RAM IC 19,20,21, 1488 RS-232 Driver 
22,33,34, 1489A RS-232 Receiver 
35,36 4702 Baud Rate 
AMI 86820 PIA IC 47,48,49 Generator (Fairchild) 
AMI 56830-00838 ROM IC 10 555 Voltage Controlled 
AMI 56830-004 ROM IC 11 Oscillator 
AMI S6834 EPROM IC 6,7,8,9,46 96502 Dual One-Shot 
AMI S6850 ACIA IC 37 8Т97 Hex Tristate Buffer 


74S00 Quad 2-input 
NAND 

74502 Quad 2-input 

NOR 

7404 Hex Inverter 

7407 Hex Open 
Collector Driver 

14508 Quad 2-input 
AND 

74810 Triple 3-input 
NAND 


IC 56,63 


IC 39,61 


DIP Switch, 8 position 
DIP Switch, 4 position 
Transistor 2N3563 
Transistor 2N4402 
Transistor 2N5400 
Transistor 2N5771 
Transistor 2N5772 
Transistor MJE340 


IC 14 
IC 65 


IC 62 


IC 55,59 


ы 59 πι πα = = ҝә 


74820 Dual 4-input IC 53 (Motorola) 
NAND 2 Diode 1N914 
74S30 8-input IC 40 7 Diode 154003 
NAND 
141,530 8-input IC 29,41 Diode A15F (G.E.) 
NAND Crystal 2.4576 MHz 
74832 Quad 2-input IC 57,58 Crystal 1.000 MHz 
OR Switch, Momentary, 
7437 Quad 2-input IC 23 СЕК 8125A Rt. Angle 
NAND Buffer Resistor Packs, 8 resistors 


7438 Quad 2-input IC 66 16 pin, 4.7K 
NAND Open Collector Potentiometers, 15 turn, 
145138 3 to 8 bit IC 44,45,54 20K (Bourns 3006P) 


Decoder Resistor, 100 ИМ + 5% 


carbon film 


*Sockets required for 5 S6834 EPROMs. 


АМЕ. 


PARTS LIST FOR PROTOTYPING BOARD (СОМТ’О) 


Resistor, 220 ИМ + 5% 
carbon film 

Resistor, 330 ИМ + 5% 
carbon film 

Resistor, 512 ММ + 5% 
carbon film 

Resistor, 1002 ИМ + 5% 
carbon film 

Resistor, 1200 ММ + 5% 
carbon film 

Resistor, 1500 ИМ + 5% 
carbon film 

Resistor, 4700 ИМ + 5% 
carbon film 

Resistor, 5102 ИМ + 5% 
carbon film 

Resistor, 1KQ ИМ + 5% 
carbon film 


Resistor, 1.5K, ИМ + 5% 
carbon film 

Resistor, 2K, ИМ + 5% 
carbon film 

Resistor, 3.3K, ИМ + 5% 
carbon film 

Resistor, 4.7K, ИМ + 5% 
carbon film 


Resistor, 10K, 4W + 5% 
carbon film 

Resistor, 22K, 4W + 5% 
carbon film 

Resistor, 100K, ИМ + 5% 
carbon film 

Resistor, ІМ, ИМ + 5% 
carbon film 

Capacitor, MICA, 8pF 


Capacitor, MICA, 20pF 
Capacitor, MICA, 56pF 
Capacitor, MICA, 100pF 
Capacitor, MICA, 270pF 
Capacitor, MICA, 470pF 
Capacitor, Ceramic Disc 


R 24 

R18 

R 19,25 

R 49 

R 37 

R 45 

К 9,10,14, 


В 8,17,23,30, 
40,47,48, 
50,51,53 

В 4,6,7,12, 


R 26,27 


Capacitor, Ceramic Disc 
.04"7uF, 6V or more 
Capacitor, Ceramic Disc 

ШЕ, 6V or more 


Capacitor, Ceramic Disc 
.14 F, 12V or more 
Capacitor, Tantalum, 
'224F, 15V 
Capacitor, Tantalum, 
4ЛиЕ, 75У 
Socket, 8 pin 
(TI C930802) 
Socket, 14 pin 
(TI C931402) 


Socket, 16 pin 
(TI C931602) 


Socket, 24 pin 


Socket, 24 pin 
(R—N TS—61024) 
Socket, 40 pin 
(TI C934002) 
Connector 
# 261—10043—2) 


C 36 


C 7,8,9,12, 
16,21,23, 
24,25,26, 
27,28,29, 


С 10,11,13, 
57,58 

С 22,28,41,49 
55,56,59 

С 53 


1С 88 


ІС 14,23,29, 


ІС 1,2,3,4,5, 
12,13,15, 


AMI. 


Appendix C 


Program Listing 


1 PROTO 01/15/76 17104 PROTO 


\ 


Loc OBJECT M SOURCE STATEMENT 


FBCE 
F8CF 
ҒВСЕ 
0020 
0000 
0018 
0004 
FFFF 
0004 
007F 


0008 
0008 
0012 
000F 
0010 
0015 
0011 
0014 
0013 
0009 


> > > > > > > » > > 


>>> > > > > > > > > 


TITLE PROTO 
ОРТ LSKP 


ὁ ICT Pitti titi tii ОЬТЕТТІІТТТТІГІЛТІІ 
"PROTOTYPE BOARD MONITOR PROGRAM 


VERSION 2,0 01/08/76 
COPYRIGHT 1976 BY AMERICAN MICROSYSTEMS INC. 


999999» ee 


РР ТТ 
* 
* DEFINITIONS 


АСТАС Eau ЗЕВСЕ АСТА CONTROL REG 

АСТАО EQu 8ΓΒΟΕ АСТА DATA REG 

АСТА$ ξου sFBCE АСТА STATUS REG 

BLANK EQU 320 BLANK CHAR 

cR Eau 500 CARRIAGE RET CHAR 

ESC EQU 318 ABORT CHAR 

ΕΟΤ EaU 504 END OF MSG ТО ВЕ PRINTED 
LAST Eau sFFFF HIGHEST ROM ADDRESS 

AF EQU $04 WINE FEED 


RUBOUT EQU 375 
+  EXTERNALS FOR RSRSR AND PROM BURNER 
* 
DEF MÜNENT,GETRNGaNXTADRSPXISTSERNGERR»PBADR 
DEF PCRLF , DUTCH» PSPACE,SETMEM»ABORT 


DEF PROMAD» ADR» ADDL s ADDHsSCOUNTAMONITR 
REF RSRSR ВИЯМ е МОМЕ READ» VF Y ,PINIT 


* 
*RSRSR ROUTINE DEFINITIONS! 
. 


$ОВХАВ Eau 11 SUBTRACT X FROM АВ 
АОПАВХ EQU 8 AUD А,В TO X 
PMSG Eau 18 PRINT MSG 
P2HEX Eau 15 PRINT BYTE AS 2 HEX CHARS 
РАНЕХ EQU 16 PRINT WORD AS 4 HEX CHARS 
CONHB Егу 21 CUNVERT HEX TO BINARY 
PUTA Eau 17 ОЧТРИТ ТО АСТА 
GETA ғау 20 ` INPUT FROM TTY 
ALPNUM EQU 19 TEST FOR ALPHANUMERIC 
PRTXD εου 9 CUNV, X TO DEC, & PRINT 
* 
* SUBR IS A MACRO TO CALL RSRSR ROUTINES 
. 
SUBR MACRO PARAM 

SWI 

BYTE PARAM 

MEND 


* 
ААА ААА татыта талаан ва заввапазай 


* 


АМЕ. 


2 PROTO 01/15/76 17,04 PROTO 


Loc OBJECT M SOURCE STATEMENT 


* MONITOR НАМ 
. 


FF90 ORG SFFFE*110 ***CHANGE IF RAM USAGE CHANGES 
FF90 A BASE Еги * BASE ADR USED WITH INDEX GPS 
РЕВЕ А 805 EQU *=1 BUTTOM OF MONITOR STACK 
* 
FF90 0048 BUF RMB 72 LINE OF TTY INPUT 
. 
РРО A PROMAD εου 9 AUDRESS IN PROM 
FFDS 0002 OFFSET RMB 2 OFFSET FOR LOADER/PUNCH 
ҒҒОА 0002 ADR RMB 2 PARAM, ENTERED BY USER 
FFOC 0002 ADDL RMB 2 
РЕОЕ 0002 АООН RMB 2 
FFEO 0002 BUFPTR RMB 2 PUINTER TO LAST CHAR SCANNED 
FFE2 0001 ВЕСТҮР RMB 1 TAPE RECORD TYPE 
FFE3 0001 COUNT RMB 1 GUUNT FIELD FROM ТАРЕ 
FFEA 0001 CKSM RMB 1 ÇALCULATED CKSM 
FFES 0002 SAVESP RMB 2 ТЕМР STORAGE FOR 5 REG 
FFE? 0002 SAVEX RMB 2 TEMP STORAGE FOR X REG 
FFE9 0001 ECHO RMB 1 1#ECHO ТТу, O*NO ECHO 
FFEA 0001 TCOUNT RMB 1 ТЕМР LOC FOR COUNT 
* USER REGISTERS 
FFEB 0001 CREG RMB 1 
FFEC 0001 BREG RMB 1 
FFED 0001 AREG RMB i 
FFEE 0002 XREG RMB 2 
FFFO 0002 PREG RMB 2 
FFF2 0002 SREG RMB 2 
* 
FFFA 0002 USWI RMB 2 USER SWI VECTOR (MAY NOT BE IMPLEMENTED) 
FFF6 0002 ACIAI RMB 2 INDIRECT POINTER TO АСТА FOR RSRSR 
FFFS 0002 ТВЗУЕС RMB 2 INTERRUPT REQUEST VECTOR 
FFFA 0002 SWIVEC RMB 2 SUFTWARE INTERRUPT VECTOR 
FFFC 0002 NMIVEC RMB 2 NON@MASKABLE INTERRUPT VECTOR 


АМЕ. 


3 PROTO 


LOC 


0047 
004A 


01/15/76 17104 MONITOR 


OBJECT M 


во 
BD 


δε 
BD 


> > се p 0- re NEP > >>>» з» 


ве 2) s= 4 


- > ва 


SOURCE STATEMENT 


ТОРА йаза ΑΜ ο ο ее еілейгееғ ей е 


*e% MONITOR ENTRY VECTOR 444 


. 
. 

е RESTARY INTERRUPT HANDLER 
* INTERRUPT BREAK HANDLER 

. 
* 


ΤΥ ΣΙ ΙΤ Ου ΙΤ, Ν.Π 


ISEC 


START Eau * RESET INTERRUPT HANDLER 
BRA STARTI 

BREAK εου * BREAK ON INTERRUPT ROUTINE 
JMP BREAK? 

АСТАА WORD АСТАС PUINTER ТО АСТА 

. 


STARTI EQU * 


PSH А SAVE А REG IF STACK EXISTS 
TPA SAVE CONDITION CODES 

STA А CREG 

PUL A 

STA А AREG SAVE CURRENT VALUE OF REGS 
STA B BREG 

STX XREG SAVE X 

575 SREG SAVE SP 

105 4805 INIT, SREG TO MON, STPCK 
LDX #BREAK BREAKPOINT ROUTINE 

$TX NMIVEC STORE IN INTERRUPT VECTORS 


STX IRQVEC 
LOX $SWI30 


STX USWI 
LOX #SWIHAN SUFTWARE INTERRUPT HANDLER 
sTX SWIVEC 
LOX ЗАСТАА SLT УР АСТА PTR 
STX АСТАТ 
LDA А #3 ВЕЗЕТ АСТА 
STA А АСТАЅ 
* 
LOA А #1 ЗЕТ АСТА СЯ 


STA А ACIAC 
* PRINT СА, Р, 4 RETURN TO MONITOR 
* А 
MONENT ра . 
MONEN! EQU * 
JSR PINIT 
JSR PCRLF 
“ 
ТУТТА АА 
* 
* 
* MONITOR ENTRY POINT 
* 


ыыы ΙΙ... тЫ 
MONITR EQU . 

LOS 2805 INIT моме STACK 

JSR ROROFF TURN OFF READER 


АМЕ. 


4 PROTO 01/15/76 17104 MONITOR 


LOC OBJECT M SOURCE STATEMENT 


0040 86 FBCF А LDA А. АСТАО DUMP TTY INPUT DATA 
0050 86 ЗЕ LDA А #'> PROMPT USER 
0052 80 0200 I JSR OUTCH 
* 
* READ TTY LINE (BUFPTR) 
* STORE ТТу INPUT IN BUF UNTIL CR 15 HIT 
* 
0055 СЕ FF90 A LOX #BUF INITIALIZE BUFPTR 
0056 FF FFEO A STX BUFPTR 
0058 οὐ SEC SET ECHO FLAG 
005C 79 FFE9 A ROL ЕСНО 
. BEGIN UNTIL LOOP . 
0057 8С FFD? А RT10 СРХ #BUF +71 TEST FOR BUF OVERFLOW 
0062 26 02 BNE RT20 NU OVERFLOW 
0064 20 47 BRA ABORT 
0066 BD 0400 I RT20 JSR WAITTY READ NEXT CHAR 
0069 А7 00 RT30 STA А Q»X INSERT CHAR INTO BUF 
0068 08 ΙΝΧ INC BUFPTR 
* WHILE CONDITION 3 
006C 81 00 RT90 СМР А #CR CARRIAGE RETURN ? 
006Е 26 EF BNE #710 NU, CONTINUE LOOP 
*END OF LOOP d 
* 
* ОЕСООЕ 1 CHAR COMMAND 
* COMPARE CHAR WITH TABLE OF VALID CHARS FOLLOWED BY 
* ADDRESSES OF APPROPRIATE ROUTINES, 
* 
0070 BD 0385 I JSR PXISTS GET 1ST CHAR 
0073 08 INX INC BUFPTR 
9074 FF ЕРЕО A STX BUFPTR 
0077 СЕ 008С 1 LOX ЭСТАВЬЕ SIART OF TABLE 
* BEGIN LOOP 
007A Al 00 DLOOP СМР А OsX СОМРАЯЕ 
0076 26 04 ВНЕ 010 
* FOUND CHAR. GET ADDRESS IMMEUIATELY FOLLOWING CHAR, 
007E ЕЕ οἱ LOX 1»Χ 
0080 6Е 00 JMP 0»Χ GU TO PROPER ROUTINE 
* NO COMPARE, MOVE TO NEXT CHAR, 
0082 08 OL10 INX 
0083 08 INX 
0064 08 INX 
0085 ӘС 00А0 I СРХ # СТЕНО END OF TABLE? 
0088 26 FO BNE DLOOP NU, REPEAT 
* END LOOP, 
008A 20 21 BRA ABORT NUT IN TABLE, 


* 
0047 1 MONENOD Eau MONITR 


СТАВІЄ: TABLE OF VALID 1 CHARACTER COMMANDS. 
EACH ENTRY CONSISTS OF 3 BYTES. BYTE 1 
CONTAINS THE ASCII CHAR, UYTES 2,3 CONTAIN THE 
ADDRESS OF THE APPROPRIATE ROUTINE. 


ose * ° 9? 9 & 


0086 1 TABLE Eou * 


АМИ. 


01/15/76 17:04 MONITOR 


5 PROTO 
Loc OBJECT 
008€ 4C 
008D 0140 
006Ғ 47 
0090 019Ғ 
0092 50 
0093 0308 
0095 42 
0096 0001 
0096 40 
0099 0002 
0098 56 
009C ‚ 0004 
009E 49 
009F 0003 
00А1 53 
00А2 ОЗЕЗ 
О0А4 44 
00А5 0136 
00А? 52 
00А8 00ЕЕ 
QOAA 45 
ООАВ 0150 
0040 
00A0 
00AD 
99040 СЕ 0273 
0080 
0080 
0080 ВЕ ΕΕΘΕ 
0083 
0083 ЗЕ 
0084 12 
0085 20 BA 


M SOURCE STATEMENT 


BYTE "L 
1 WORD LOAD 
BYTE — 'G 
I WORD 60 
BYTE | "Р 
І WORD PUNCH 
BYTE В 
R WORD BURN 
BYTE — 'M 
R WORD MOVE 
BYTE 'ν 
в WORD үрү 
BYTE 1 
R WORD READ 
BYTE *S 
1 WORD SM 
BYTE Ὁ 
1 WORD DM 
BYTE — 'R 
I WORD PREGS 
BYTE — 'E 
1 WORD EOF 
I СТЕНО Eau ο 
* 
ХАЛАТА ААА ААА ДАХ АХЛ) 
е 
* ABORT 
* 
ФееФьбаееевефеазейффтееаейгеййзейаейізегіфф”дфедейддӛі йе ее? 
* 
I ABORT Eau œ 
I BADINP EQU « 
I Lox £MQUES PRINT 2277 


* 
* PRINT MSG AND RETURN TO MONITUR 
* 

I MSGMON EQU * 

I М56АВТ εου . 


А 105 #805 5 1 а ВОТТОМ OF STACK 
SuBR PMSG 
Ф SWI 
+ ВУТЕ PMSG 


BRA ΜΌΝΕΝΙ 


AMI. 


6 PROTO 01/15/76 17104 SWI*HANDLER 


(06 OBJECT М SOURCE STATEMENT 


АКА ААА АА ААА tle th 
* 


* SWI HANDLERS 
* DETERMINE WHETHER SWI IS MUNITOR CALL» RSRSR CALL» 


* OR USER SwI (NOT IMPLEMENTED), 


* 
η ААА ААА ААА АЛЛА ААА 


. 
0087 I BREAK! Eau 


. BREAKPOINT ENTRY 
0087. BD 0005 В JSR PINIT CLEAR PROM BURNER 
00BA 86 80 (ОА А #128 PRETEND TO BE SWI 128 
0986 20 1А | BRA 58140 : SAvE REGS 


* 
OOBE I SWIHAN койу * 
| * FIND INDEX BYTE (BYTE AFTER SWI THAT GOT US HERE) 


008E 30 TSX 
008Ғ ЕЕ 05 LOX 5,Х Х'=ВЕТ. ADR, 
00С1 A6 00 “LOA А OsX AtsINDEX BYTE 
0063 28 ос BM! SWI30 BREAKPOINT? 
* IF USER HAS ADDITIONAL (RS)**35 ADDR OF FIRSTe2 MUST BE IN FFFS 
0065 80 18 SUB А #24 RSRSR CALL? 
0067 2А 03 BPL 584120 NU == 
00С9 ТЕ 0000 R JMP RSRSR 
4 
* USER SWI 


. 
00СС FE FFF4 А SWI20 LOX USWI 
`00СЕ 6Е 00 JMP 09Х GU DO IT 
. 


* MONITOR CALL, COPY REGS FROM STACK 
. 


0001 30 $н130 TSX INCREMENT ВЕТ, ADDR, 
0002 66 06 INC 6»X 
0004 26 02 BNE 5и140 
0006 6С 05 INC 5, X 
0008 CE FFEB А $н140 Lox #CREG DEST, FOR 1ST REG 
* BEGIN LOOP 
0008 33 SWI50 PUL B GET REG 
0006 Е? 00 STAB 0х copy 
000Е 08 INX MUVE TO NEXT REG 
OODF 8С FFF2 А СРХ #CREG+7 END OF LOOP? 
00Е2 26 F7 BNE $4150 
* END LOOP 
* 
* $ NOW CONTAINS ITS VALUE ВЕРОМЕ SWI 
* WAS EXECUTED, SAVE IT, 
* 
0064 AF 00 ` Š STS 0»Χ 
“А STILL CONTAINS SWI INDEX. TEST IT 
* 
00Е6 81 81 СМР А #129 
00Е8 26 04 BNE PREGS NUT 1291 BREAK 
00EA 80 07 BSR PRI 1291 SNAPSHOT 
00ЕС 20 1Ε BRA RESTAK AND RETURN TO USER PROGRAM 


7 PROTO 


LOC 


ООЕЕ 
0070 


0073 
00Ρό 


00Ε6 
0078 
009 
OOFA 
00Ғ0 
OOFE 


0100 
0102 
0105 
0106 


0108 
0108 


ΑΜΙ. 


01/15/76 17:08 SWI@HANDLER 


OBJECT M 


8 PROTO 


Loc 


010C 
010F 


0112 
0114 
0115 
0116 
0119 


011B 


0360 


037C 


0304 


I 


+ + 


SOURCE STATEMENT 


* 
ыыы ТҮРТ ы 


* PREGS! PRINT USER REGISTERS 
* 


w... thttéebttthtutatettbeththttthtteth*thth*ttthotehtt*tthttettteatttet 


* 
PREGS εου * 


BSR PRI 
JMP ПЕЧЕНЕ 
PRI EQU SUBROUTINE TO PRINT REGS 
0х саға х POINTS To 15Т BYTE OF AREA 
* PRINT 3 1-8ΥΤΕ REGS 
LDA B #3 StT UP COUNT 
PR10 SUBR P2HEX 
SWI 
ВУТЕ P2HEX 
JSR PSPACE 
DEC В 
BGT PR10 
. 
е PRINT 3 2чВУТЕ REGS 
LOA В #3 SET UP COUNT 
. 
PR20 JSR PAHEXS 
ОЕС B 
BGT PR20 
4 ; 
458 PCRLF PRINT CRLF 
RTS RETURN 


01/15/76 17104  VECTRS 


OBJECT 


BE 


СЕ F 


Аб 


8с 


26 f? 


M 


SOURCE STATEMENT 


ААА ЛА ХА АДА 


* 
* RESTORE USER STATUS AND RETURN FROM MONITOR 
* 


ААА А ЛТТІТСІҮТІТҮТТІТІІ 
* 


* RESTORE USER'S STATUS 


* 
RESTAK LOS SREG TUP OF USER STACK 


Lox #СВЕб+6 USER REGS, 
*BEGIN LOOP 
RUS10 LOA А OsX GET USER REG 
PSH A PUSH INTO USER STACK 
DEX MUVE TO NEXT REG 
СРХ #CREG=1 LAST REG ? 
BNE RUSIO NU, CONTINUE LOOP 
*END OF LOOP 
RTI RETURN TO USER PROG 


AMI. 


9 PROTO 01/15/76 17104 COMMANDS 


Loc OBJECT M SOURCE STATEMENT 


122224544124 ΙΙΙ ΙΙ ΓΤ ΔΑ ньо 


* 
* COMMANDS AND SUBROUTINES! 
* 


ААА ААА ААА ААА ААА ХАЛАТ, 


* 
токио кре кии 
* 

* CHEKSMCCKSM) 

* VALIDATE CKSM 

* 

лл ААА 


011С I СНЕК5М εου * 


011С B6 FFEA A LDA А СК$М SAVE CALC. СКЗМ 
ОЩЕ 36 i PSH A 
0120 BD 029Е 1 JSR МЕХТ20 Atm NEXT BYTE FROM TAPE 
0123 33 PUL В 
0124 53 сом в В: САС, CKSM 
0125 11 СВА BsTAPE CKSM? 
0126 26 01 BNE с51 мо, 
0128 39 RTS 

* 
0129 30 CS1 TSX X*»ADR OFCALC. CKSM 
012A 09 pEX 
012B SUBR РОНЕХ PRINT CALC. CKSM 
0128 ЗР + SWI 
012C oF + BYTE Р2НЕХ 
0120 BD 0380 1 JSR PSPACE 
0130 СЕ 0278 1 LOX #МС5ЕВ PRINT "CKSM ERR" 
0133 ТЕ 0080 I JMP MSGABT 


*htbkith&ttàhteththtihtthkt tk kh hath hu ева датавана a 
* 
* ОМ ADDL»ADDH COMMAND 


ж 
154444444121 Ι ΕΣ ΤΕ 2 ЭХГТТТТТТТТТТҮТТТТТТІ 


0136 I DM εου . 

0136 80 35 BSR | GETRNG GET ADD RANGE FROM BUF 

* RETURNS ADDL»ADOH*t 

*BEGIN DUTER LOOP 
0138 CE FFDC А 0М10 LOX #AD0L 
0138 BO 0376 1 JSR PAHEXS PRINT ADDL» SPACE 

* BEGIN INNER LOOP 
013E FE FFDC А DM20 LOX ADDL 
0141 SUBR P2HEX PRINT MEM(X) SPACE INC X 
0141 ЗР Ф SWI 
0142 oF * ВУТЕ Р2НЕХ 
9143 BD 0380 I JSR PSPACE 
0146 FF ҒҒОС А $ТХ ADDL 
0149 ВС ҒҒОЕ А СРХ ADDH IF ADDLsADDHe1» END OF RANGE 
0146 2? oC BEQ DM50 EXIT OuTER LOOP 
014Е 86 FFDD A LDA А 4001,41 IF LSB*S OF А001з0, END OF LINE 
0151 84 OF AND А #$F 
0153 26 Ε9 BNE омго NOT END ОР LINE, CONTINUE 


* END OF INNER LOOP 


AMI. 


10 PROTO 


Loc 


0155 
0158 


015A 


0150 
0160 
0160 
0161 


0162 


0164 
0165 
0168 
0169 


0168 


0160 
0170 
0173 
0176 
0179 
0176 


017E 
0181 


0184 
018? 
0189 
0188 
0180 
018Р 
0191 
0194 
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OBJECT 


BD 
20 


?Е 


СЕ 


028А 


0200 


ЕО 


1 


1 


» > » » 9 


— 9.“ 


SOURCE STATEMENT 


JSR PCRLF PRINT CRLF 
ВАА DM10 EXIT INNER LOOP 
* END OF OUTER LOOP 
JMP ΜΟΝΕΝΙ ск, (Ро BACK TO MONITOR 


DMSO 
. 


ΓΥΤΙΤΙΣΙΙΤΙ Τη. t... я йазийа ааа я 


* 
** PUNCH END OF FILE AND 60 NULLS 
. 


ААА ААА отете 


EOF LDX #НРЕОР PUNCH EOF RECORD 
SUBR PMSG 
SWI 
BYTE PMSG 


* PUNCH 60 NULLS 


* 
NULLS LOA B 459 LUAD COUNTER 
* BEGIN LOOP 
NULLI CLR A LUAD NULL 
JSR OUTCH PRINT ONE NULL 
DEC В DECREMENT COUNTER 
BNE NULL1 DUNE? 
* END OF LOOP 
BRA 0М50 СК, (Г »ВАСК TO MONITOR 


ТТЫ ΙΙΙ 
* 
* GETRANGE (ADDL»ADDH,BUFPTR) 
* GET ADDRESS RANGE FROM BUF 
ABORT IF INVALID 
SET АДОНізАрбонеї TO SIMPLIFY COMPARISONS 
RETURNS ADDL & АООН+1 
ALTERS ADRsXsAcB 


Ф090 з + 


ТТТІТІЛІТІТІТІЛІЛІ111451541124422442144414344454 


GETRNG εου . 
JSR NXTADR GET ADDL 
LDX ADR 
STX ADDL STORE ADOL 
STX ADOH MAY BE ONLY 1 PARAM 
JSR NXTADR GET АООН 
BEQ GETRG3 ONLY 1 PARAM 
. 
GETRG1 Lox ADR 
$ТХ ADOH SAVE ADDH 
* THE NEXT 5 INSTR TEST ADDH@ADUL 
GETRG3 LOX #ВАЅЕ REF М.В. Т. BASE OF RAM 
LDA А  ADDH*BASE»X MSBYTE 
LDA В ADDH+1*BASE X 
SUB В ADDL*1=BASEsX 
SBC А ADDL=BASE, X 
acc GETRGS AUDH,GE.ADDL 
RNGERR LOX #MRNGER RANGE ERR MSG 
ЈМР MSGABT PRINT MSG 4 ABORT 


* 


АМЕ. 


11 PROTO 01/15/76 17:04 COMMANDS 


Loc OBJECT M SOURCE STATEMENT 


0197 FE FFÜE А  GETRG4 LOX АООН INC ADDH 
019А 08 INX 

0198 ҒҒ FFDE А STX ADDH 

019E 39 RTS 


* 

* 
**tbthtéhtthhthihhtkttt eh thhhthtittiashthtththtttt ht ἢ 8 ὁ αὶ αὶ 
* 


* GO COMMAND 
* 
ы лл ТТТ ГЫГА 


* 
019F 80 0288 I 60 JSR NXTADR GET PARAM 
O1A2 27 06 ВЕО 610 NU PARAM, CONTINUE EXECUTION 
е 
OLAS FE FFDA А LDX ADR AURZPARAM FROM NXTADR 
0147 FF FFFOA STX PREG 
* 
014A 7E 0406 I 610 JMP RESTAK CIN INTERRUPT HANDLER) 
* 
* 
лл 00... ἢ ἃ ἢ ἃ ἃ αὶ ὁ ὁ ὁ αὶ ἢ δ 4... ἢ ἃ ὁ t... ἃ 
* 
* LOAD COMMAND 
* 
ЖФаеааФтве”едевезегейейтейтжейетеФейіз δ Ὁ δ ὁ ὁ ὁ Ὁ ἃ 
* 
0140 I LOAD £QU * 
01AD CE 0000 A LDX 20 INITIALIZE RANGE & OFFSET 
0180 FF FFDB A STX OFFSET TU 0000>РРРР» 0000 
0183 FF FFOC А STX ADDL 
0186 09 LOOFST DEX 
0187 ΕΕ FFDE A STX ADDH 
018А 80 0288 I JSR NXTADR ANY OPERANDS? 
0180 27 |E BEQ LHF2 NU, USE DEFAULT. 
018Ε FE FFDA А LOX ADR Yes, 
01602 FF ҒҒОВА STX OFFSET Ir ΟΝΕ, IT'S OFFSET 
0165 80 0288 1 JSR NXTAOR ANOTHER? 
0168 2? 13 ВЕО LHF2 NU, 
01CA FE РРОВ А LOX OFFSET YES, FIRST TWO ARE RANGE 
0460 ҒҒ FFOC А STX ADOL 
0100 CE 0000 A LDX #0 
0103 FF FFO8 А STX nFFSET 
0106 80 A6 BSR GETRGI 
0108 FE FFDE A LOX ADOH 
0108 20 09 ЯНА LOOFST GU TRY AGAIN FOR OFFSET 
* BEGIN OUTER LOOP 
0100 BD 0345 1 LHF? JSR RDRON TURN ON READER 
* SHORT LOOP ТО SKIP НОЯ RECORDS 
O1EO BO 70 RDPRE BSR FINDS FIND START OF RECORD 
А SETS (ЕСНО):=0 ON ENTRY 
01E2 BD 0400 І JSR НАТТТУ RETURNS (дузаТТУ I/P 
01ES 81 30 СМР А #"0 IGNORE HOR RECORDS 
01Е7 27 рт BEO ROPRE 


* END SHORT LOOP 


С- 10 


12 PROTO 


Loc 


01E9 
01ЕС 
O1EF 
01F2 
01F3 
01F4 
01F5 
0178 
01ҒВ 
01ҒЕ 
0201 
0204 
9207 
020A 
0200 
0210 
0213 
0215 


0217 


021A 
0210 
0220 
0221 
0224 
0227 


0229 
оггв 
0220 


022F 
0232 
0235 
0237 


0239 
023C 
023F 


0242 


0245 
0248 
0248 
0249 


01/15/76 17104 


0BJECT 


FFE2 
FFEA 
029Е 


FFE3 
029Е 
FFDA 
029Е 
FFD9 
FFDB 
FFDA 
FFD8 
FFDA 
FFE2 


M 


---1» > 


> > > » >» > = P = > 


+-> 


> > 


+ + 


COMMANDS 


SOURCE STATEMENT 


STA А RECTYP 
CLR CKSM 
JSR МЕХТ20 
DEC A 
DEC A 
DEC A 
STA А COUNT 
JSR NEXT2D 
STA А AOR 
JSR NEXT20 
ADO А ОРРЗЕТ+1 
STA А  ADR*1 
LOA А AOR 
АОС А OFFSET 
STA А ADR 
LDA А RECTYP 
LHF3 CMP А #11 
ВМЕ LHF4 


* 


* LOAD DATA RECORD 
* 
*BEGIN UNTIL LOOP 


AMI. 


SAVE RECORD TYPE 


READ BYTE COUNT FROM ТАРЕ 
DEDUCT ADR & CKSM 


SAVE BYTE COUNT 
READ ADR FIELD FROM TAPE 
157 BYTE 


2ND BYTE 
CARRY TO FIRST BYTE 


GET RECORD TYPE (05159) 
DATA RECORD ? 
NU 


(0810 JSR МЕХТ20 READ 2 НЕХ DIGITS FROM 
* TAPE. RETURNS IN А 
LOX ADR 
JSR SETOFF STORE IN MEM(X)» VERIFY 
INX 
STX ADR 
DEC COUNT DUES COUNT#07 
BGT LOR10 NU. CONTINUE LOOP 
*END UNTIL LOOP 
BRA LHF9 
LHF4 CMP А #'9 EUF RECORD ? 
BNE BADTAP ILLEGAL RECORD TYPE 
* 
LHF9 JSR CHEKSM CHECK CKSM 
LDA А RECTYP GET RECORD TYPE 
СМР А 409 EUF RECORD ? 
BNE LHF 2 NU, CONTINUE LOOP 


. 
*END OF OUTER LOOP 
* 


JSR RDROFF 
LDX $£MEOF 
JMP MSGMON 
* 
BADTAP JSR RDROFF 
* 
LDX #MTAPER 
SUBR PMSG 
5η] 
ВУТЕ РМ$6 


* 


PRINT "ЕОР" 
AND RETURN TO MONITR LOOP 


PRINT "ТАРЕ ЕВА" 


* ACCEPT NO COMMANDS UNTIL USER PRESSES ESC 


* 


C—11 


AMI. 
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13 PROTO 
106 OBJECT 
024A 7С ҒҒЕ9 
0240 BD 0400 
0250 20 FB 
0252 
0252 ТЕ FFE9 
0255 80 0400 
0258 81 53 
025A 26 [9 
0256 39 
0250 4241 
025Ε 4420 
0261 8144 
0263 52 
0264 04 
0265 5241 
026? 5Е47 
0269 a520 
0268 4552 
0260 52 
026Е 04 
026F 454Р 
0271 46 
0272 04 
0273 ЗҒЗҒ 
0275 ЗЕЗЕ 
0277 04 
0278 4348 
027А 5340 
027С 2045 
027Е 5252 
0280 04 
0281 5441 
0283 5045 
0285 2045 
0287 §252 
0289 104 
028A 5339 
0285 3033 
028Е 3030 
0290 3030 
0292 4643 


SOURCE STATEMENT 


INC ЕСНО SET ECHO 

. 

Вт! JSR ΝΑΙΤΤΥ ESC CAUSES ABORT 
BRA 971 


* 
ΣΤΟΠ е най пай пай ΙΙΙ; 
* 

* FIND 5 

* READ TAPE UNTIL START GF RECORD 

* 

* 
ТАТА ААА ΙΙΙ ΙΤ 


FINNS Eau * 


CLR ECHO NU ECHO 
*BEGIN LOOP Е 
FS10 JSR WAITTY READ NEXT TAPE CHAR 
CMP A #15 CHAR з 5 
ВНЕ 7510 ми 


*END LOOP 
RTS 


* 

* MESSAGES 

* 

MBADR CHAR /BAD ADR/ 


BYTE 4 
MRNGER CHAR /RANGE ERR/ 


BYTE 4 
MEOF CHAR ИЕОР/ 


ВУТЕ 4 
MQUES CHAR 1227227 


BYTE а 
MCSER CHAR /CKSM ERR/ 


BYTE 4 
MTAPER CHAR /TAPE ERR/ 


BYTE 4 
MPEOF CHAR #59030000ЕС/ 


14 PROTO 


Loc 


0294 
0295 
0297 
0299 
0298 
0290 


029Е 
ОгА! 
02А2 


02А5 
0246 
02A? 
02А8 
ОгАА 
О2АА 
0248 
02Α6 


ОгАЕ 
02АҒ 
0282 
0285 
0286 
0287 


OBJECT 


BD 
80 


01/15/76 17108 


04 
000А 
0000 
0000 
5331 
04 


029Е 1 
0400 1 


0400 1 


BYTE 


MCRLFS BYTE 


AMI. 


COMMANDS 


М SOURCE STATEMENT 


4 
CRoLF»0s0»0»0»5 S, * 1o4 


МАЛА 445425444442 ААА ААА 


* 
* 
* 
* 
* 


* 


NEXT 2 51018555 
READ NEXT 2 CHAR FROM TTY TAPE AND CONVERT 
ТО HEX NUMBER IN А REG. UPDATE СКМ, 
RETURN UPDATED CKSM IN B RES, 


*fi*tuatktettthttt tbe i. kO... ТТТТТІТТІТТТІГІТТТТ 


МЕХТ20 Eau 


тете 


JSR 


* 
WAITTY GET CHAR 

SAVE CHAR IN A 
WAITTY 


SET UP PARAMS FOR CONVERSION ROUTINE, 
PUSH ASCII CHARS INTO STACK, POINT X AT STACK, 
SET AsTYPE OF CONVERSION AND Вар OF CHARS TU CONVERT, 


PSH А 
PSH B 
TSX 
LOA В 
SUBR 
SWI 
BYTE 
ВСС 


ТВА 
ADD В 
ЅТА В 
INS 
INS 
RTS 


#2 

CONHB CUNVERT FROM ASCII TO BINARY 

CONHB 

ВАОТАР It МОМеНЕХ CHAR» ABORT 
UPDATE CKSM 

CKSM 

CKSM 
RESTORE STACK PTR 


444444522245 ЗАЛАЛ ТТҮТҮТТТТТТІТТІТТТТ! 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


NEXT ADRCBUFPTRe ADR) 


SET ADR»0 
AT BUFPTR 


OR NEXT NUMBER SIRING STARTING 


LEAVES BUFPTR AT CR,DELIMITER,OR FIRST 
CHAR BETWEEN G е 2 , 

LEAVES (А)= LAST CHAR SCANNED, 

LEAVES (B)w LS BYTE OF ADR 


RETURNS! 


сси Z FOR NO PARAMETER 
ABORTS IF NON*HEX PARAMETER 


C— 13 


АМЕ. 


15 PROTO 01/15/76 17404 COMMANDS 


Loc OBJECT M SOURCE STATEMENT 


АТО ΙΠΠΟΤΕΣ ете тайдай апава тай КІ ГІ! 


0288 Г NXTADR eau * 
0288 ТР ҒҒОА А CLR ADR AURts O 
0288 7F FFOB А CLR ADR+1 
028E ВО 0385 I JSR PXISTS IS THERE A PARAMETER? 
0261 26 01 BNE NAL YES 
0263 39 RTS RETURN W/NO PARAM CCaZ 
. | 
* 
* SET UP PARAMS FOR ASCIT TU HEX CONVERSION 
* 
0264 C6 47 . NAI LOA B #71. МАХ, CHARS TO SCAN 
02C6 SUBR CONHR 
0266 ЗЕ + SWI 
02С? 15 + ВУТЕ CONHB 
0266 ҒҒ ҒҒЕО A STX gUFPTR 
0268 B? ҒҒОА А STA А ADR SAVE RESULT 
д26Е Е? РРОВ А STA В ADR! 
0201 Аб 00 LDA А Ο»Χ СМЕСК ТЕВМТМАТОВ 
0203 SUBR ALPNUM TS CHAR ALPHA? 
0203 ЗЕ + SWI 
0204 13 + BYTE ALPNUM 
0205 2591 BCS NA3 τες 
0207 39 RTS 
* 
0208 ТЕ ООА0 I МАЗ JMP ABORT NU 
* 
* 
ооо китае nn 
. 
* OUTCH з PRINT CHAR IN А 
e QUTCHX = PRINT CHAR АТ МЕМ(Х) 
* IF CHAR = Ся, FOLLOW WITH LF & 4 NULLS 
. 
ААА АА ае теат ΛΠ; 
. 
0208 А6 00 OUTCHX LDA А Ox ENTRY 1 


* 
0200 I OUTCH εου * 
* FIRST CHECK FOR ESC 


0200 37 PSH B 
02DE F6 FBCE А LDA В ACIAS АСТА INPUT STATUS 
02Е1 57 ASR В C! aRDRF 
02Е2 24 OA всс gc 10 NU INPUT 
02Е4 F6 FBCF А LOA В АСТАО READ АСТА 
02E7 Οἱ 18 СМР В #ESC 
02Е9 26 03 BNE — 0610 NUT ESC 
02Е8 7E 0040 I JMP ABORT 
2 | 
02ЕЕ 0C10 SUBR РИТА PRINT CHAR 
ο2εε ЗЕ 220% SWI 
02ЕР 11 + ВУТЕ РИТА 
02Ғ0 81 00 CMP А 468 
02-2 26 ОЕ ANE 020 NUT CR, RETURN 


С- 14 


16 PROTO 


(06 


02Ғ4 
02Ғ6 
02Ғ6 
o2F? 
0278 
0279 


02Ғ8 
02Ε8 
02FC 
02FD 
02ҒЕ 


9300 


0302 
0303 


0304 
0306 


0306 
0308 
030Ε 
0311 
0313 
0315 
0318 


"0318 
031E 


0321: 


0324 
0327 
0329 


AMI. 


01/15/76 17:04 COMMANDS 


OBJECT 


86 
ЗЕ 
ΔΕ 
c6 
ЗЕ 


5А 
26 


86 
эз 
39 


86 
20 


ОА 


11 
04 


11 
FB 
00 


00 
05 


0160 
0000 
FFD8 
A5 

06 

FFDA 
FFD8 


0318 


FFDF 
РРО 
РЕОЕ 
FFOC 
04 
1E 


M 


> >p > > 


* 


+ 
ф 


SOURCE STATEMENT 


LOA A ЖР PRIN? LF 
SUAR PUTA 
SWI 
BYTE PUTA 
CLR A PRINT 4 NULLS 
LDA B #4 
* BEGIN LOOP 
OcLoaP SUBR PUTA 
SWI 
BYTE PUTA 
DEC B 
BNE . OCLOOP 


* END LOOP 
LDA #cR RESTORE A 


. 
0620 PUL В 
RTS 
. 
ΣΣ ΣΕ ΑΣ ΣΣ 111) 
. 
* PRINT СА, Роми 
. 
ктеевбеоеааетевтеаееабезяеезйтейібкакезлійжфдежзсідейгейіе 
PCRLF LDA А £CR 
BRA OUTCH UUTCH PRINTS LF AFTER CR 


т ΤΙΤΟ лыт 


PUNCH AODL»ADOH 
PUNCH MEMORY CONTENTS BETWEEN ADOL 4 ADOH 
IN ΗΕΧ FORMAT 


я 
. 
. 
* 
* 
* 
* 


* 
Тт Ыыы ТЕСІЛЕ 0... i... Д ДДД 


PUNCH JSR GETRNG READ ADDL 4 ADDH*1 


LOX #0 

STX OFFSET 

BSR NXTADR ANY OFFSET? 
ВЕС PHF15 NU, 

LOX ADR YES, 


STX OFFSET 
* + 
* PUNCH DATA RECORDS UNTIL ADDL = ADDH 


. 
РНЕ 15 Eau * 

* BEGIN | ООР 

* 

* CALCULATE DATA LENGTH = МІМ(30, АПОНФ1 АОВ) 


* 
PHF20 LDA 


В ADDH%1 BFsADDH*ADDL 
SUB B aADDLei 
LOA А ADOH 
SBC А ADOL 
АМЕ PUND10 DIFF «СТ, 256 
СМР B #30 LS BYTE «GT. 30? 


с- 15 


AMI. 


17 PROTO 


LOC 
0328 
0320 


032F 
0330 
0331 
0332 
0335 
0338 
0338 
0339 
033A 
0338 
033E 
0340 
0341 
0344 
0347 
034A 
0344 
034B 
034C 
034F 
0352 


0353 
0355 
0357 


`035А 
03556 


035Е 
0361 
0364 
0365 
036? 
0369 
0366 
036F 


0371 


0374 


OBJECT 
23 02 
C6 1E 


ЕВ 90 


M SOURCE STATEMENT 


>> > 


> > 


> > 


+ 


+» + 


BLS 
* 
PUND1O LDA 
. 


PUND20 INC 
INC 
INC 
STA 
LDX 
SUBR 
SWI 
BYTE 
CLR 
LOX 
BSR 
PSH 
LOX 
LOA 
LOA 
SUBR 
SWI 
BYTE 
STX 
LDX 
PUL 


BSR 
BSR 
LOX 


* 


= © т o b] 


А 
B 


01/15/76 17:04 COMMANDS 


PUND20 
#30 


COUNT 
#MCRLFS 
PMSG 


PMSG 


#COUNT 
PUNBYT 


ADOL 
OFFSET 
ОРЕЗЕТ+1 
АООАВХ 


ADDABX 
ADR 
ЗАОН 


PUNBYT 
PUNBYT 
ADOL 


DIFF 467.30 


CUUNTtIsCOUNT*3 
ве INCLUDES ADDR & CKSM 


8 HOLOS CKSM 
PUNCH COUNT 


CUMPUTE OFFSET ADORESS 


PUNCH FROM ADR 


CINCREMENTS X) 
RESTORE X 


* PUNCH BYTES FROM MEMORY UNTIL COUNT IS EXHAUSTED 


* 
* BEGIN LOOP 
PREC10 BSR 
BGT 
* END LOOP 
STX 
LDX 
COM 
STA 
BSR 
LOX 
СРХ 
ВМЕ 
* END LOOP 
JMP 
* 


PUNBYT 
PRECIO 


ADDL 
#CKSM 


0, x 
PUNBYT 
ADOL 
АбОН 
РНҒ20 


MONEN1 


(6650 IF COUNT=0) 


SAVE X 
PUNCH CKSM 


СКМ: еВ 


Оооо ΓΙ ироко нити ай 


з 


PUNBYT (MEM(X),COUNT CKSM) 


. 
* PUNCH BYTE АТ МЕМСХ) AND AUJUST COUNT AND CKSM, 
* CC»2 IF COUNTSO 


* 


жаты ААА ААА. 
PUNBYT ADD B ох 


C—16 


CKSMteCKSMOMEN(X) 


18 


PROTO 01/15/7 
Loc OBJECT M 
0376 
0376 3F + 
0377 ОЕ + 
0378 ТА ГРЕЗ А 
0378 39 
037С 
037€ ЗЕ + 
0370 10 + 
ОЗТЕ 80 00 
0380 86 20 
0362 
0382 ЗР + 
0383 11 + 
0384 39 

0385 1 
0385 FE FFEO A 
0388 1 
0388 Аб 00 
ОЗВА 
ОЗВА ЗЕ * 
038B 13 + 
038C 25 07 
038E 81 oD 
0390 27 03 
0392 08 
0393 20 F3 
0395 FF FFEO A 
0398 81 00 
039A 39 


6 17104 


COMMANDS 


SOURCE STATEMENT 


SUBR 
541 
ВҮТЕ 
ОЕС 
RTS 


P2HEX 


P2HEX 
COUNT 


AMI. 


PRINT MEM(X) AS 2 CHAR 


ААА фев етот теат овоот отот а тетот ое 


* 
* PAHEXSI 
* 


PRINT 2 BYTES AT X AS 4 HEX CHARS + 2 SPACES 


АЛЛАХА КЛАЛ ААА ВА 


. 
PAHEXS 


* 


SUBR 


.РАНЕХ 


РАНЕХ 
PSPACE 


“Әзгабтеаевееевааефеежледейжйтебейгжейіайеетейее?йзейдек% 


* 


* PSPACE===*PRINT 1 BLANK 


* 


ολ ΣΣ ERE CERES ESE δ ἢ ἃ ἢ ECE ἢ ἢ ἢ ἢ ὁ ὁ ἢ αὶ ἃ ἃ ἃ δ ἃ 


PSPACE 


* 


LDA 
SUBR 
SWI 
BYTE 
RTS 


A 


#BLANK 
PUTA 


PUTA 


ФКӨзғедееедевееатефейвекжеаайеЖйаФФзФафйтеетейееейеіке 


PARAM EXISTSCRUFPTR) 


* 
* 

* 

* INC BUFPTR UNTIL CHAR з ALPHA OR CR 
* LEAVE A = MEMCBUFPTR) 

. 


CEBUFPTR) = BUFPTR 
(X) а BUFPTR 


SET 2 IF NO PARAMETER EXISTS 


АА КАХА АКА ААА ААА ААА ХАЛАТ, 


PXISTS 


PXISTX 
*BEGIN Lo 
PX1 


*END LOOP 
ΡΧ2 


Eau 
LDX 
EQU 
oP 
LDA 
SUBR 
9Ν1 
BYTE 
BCS 
СМР 
ВЕО 
INX 
BRA 


STx 
CHP 
RTS 


A 


A 


A 


* 
BUFPTR 


* 


OsX 
ALPNUM 


ALPNUM 
ΡΧ2 
# СА 
PX2 


РХ1 


BUFPTR 
#CR 


ENTRY FOR (#BUFPTR)=BUFPTR 
ENTRY FOR (Х) = BUFPTR 
15 CHAR ALPHANUM 2 


YtS, EXIT LOOP 

IS CHAR CR ? 

YES, EXIT LOOP 
MUVE TO NEXT CHAR 


9 


SET 2 IF ΝΟ PARAMETER 


«база Фбабелеаей гек ае беейт аке иа та кеваев жа тейеей ете 


C—17 


AMI. 


19 PROTO 01/15/76 17104 COMMANDS 


Loc OBJECT М SOURCE STATEMENT 


ROR OFF 
TURNS TAPE RDR OFF! 
АСТА RTS O/P HIGH 
АСТА CHAR $13 (DC3) 


* ee 8 $9 


* 
ἕἄἪὂὋΝ ΚΟ ΤΟΠ; ай ΙΙΙ.“ 


0398 I RDROFF εου * 


0398 86 01 LOA A #$01 RTS HIGH 
0390 B7 FBCE A  ЯОР90 STA А АСТАС $ЬТ АСТА CONT REG 

0340 86 13 LOA А #$13 SEND ТТУ ROR CONT CHAR 
03А2 SUBR PUTA 

ОЗА2 ЗЕ Же SWI 

0343 11 + ВУТЕ РИТА 

ОЗА4 39 RTS 


τ ХАТА ААА ААА ААА ΛΑ ΔΑ ΛΑ 


ROR ON 
TURNS TAPE READER ON 
АСТА RTS О/Р LOW 
АСТА CHAR $11 (061) 


соот © 


* 
[ХВАТАЛО 


ОЗА5 I RORDN ERU * 


ОЗА5 86 41 LDA А #841 RIS LOw 

03A7 В? FACE А RON90 STA А ACIAC SET АСТА CONT REG 

ОЗАА 8611 LDA А #311 ЗЕМО TTY RDR CONT CHAR 
ОЗАС SUBR PUTA 

ОЗАС ЗЕ + SWI 

03AD 11 + ВУТЕ РИТА 

ОЗАЕ 39 RTS 


PCT REPELS PESESEESCR айай RSS EASE CSCS EEC пп йпайзаа# 

я SETMEM(X) 

* SETS МЕМСХ):зА AND VERIFY 

ο ο ККЕ tas rd 
ОЗАР 1 SETOFF εου . 


ОЗА 36 PSH A FIRST CHECK RANGE! 
0380 86 FFDC A LDA А ADDL LUM LIMIT 
0383 F6 FFOD A LDA В ADDL*1 
0386 SUBR SUBXAB 16=BIT SUBTRACT 
0386 ЗЕ + SWI 
0387 08 + ВУТЕ SUBXAB 
0388 22 0А RHI SETOUT Тоо LOW 
038A 86 FFDE А LOA А АПОН HIGH LIMIT 
0380 #6 FFÜF A LOA В ANDHe1 
03C0 SUBR SUBXAB 
03C0 3F + SWI 
03C1 08 " BYTE SUBXAR 
0362 24 97 асс SETPUL UK 
03C4 32 SETOUT PUL A QUTSIDE RANGE LIMITS 
0365 86 FF LDA А #255 TYPE DELETE (RUBOUT) 
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20 PROTO 01/15/76 17104 COMMANDS 


Loc OBJECT M SOURCE STATEMENT 


9367 SUBR PUTA TU SIGNAL FACT TO USER 
0367 ЗЕ + SWI 
озса 11 + ВУТЕ PUTA 
0369 20 17 BRA SETM1 UTHERWISE IGNORE STORE REQUEST 
03CB 32 SETPuL PUL A 
03CC I SETMEM EQU * 

ОЗСС А? 00 STA А ех 
03CE А! 00 CMP А Ο»χ VERIFY 
0300 27 10 REO ΦΕΤΜΙ ERROR ? 

* VERIFY ERROR , PRINT AOR 
0302 FF FFDA A STX ADR SET PARAM FOR ΡΦΗΕχ 
0305 CE FFDA А LOX BADR 
0308 80 ¢1 BSR ROROFF 
ОЗОА 80 АО BSR ΡΦΗΕΧς 
0306 СЕ 0250 I PBADR LOX &MBADR PMINT "ВАД АОВ! 
030F ТЕ 0080 I JMP MSGABT PRINT MSG 4 ABORT 

е 
03Е2 39 $ЕТМ1 RTS 


ооо тир вико вену 
* 
* SM ADR ВҮТЕ1,ВҮТЕ2›,›,», 


* 
ААА АЛЛАХА 


03E3 1 SM EQU * 

03E3 80 0288 І JSR NXTADR Ай та NEXT PARAM 

* 
03E6 FE FFOA A SMS LOX ADR ΦΑΝΕ ΑΡΗ IN ADDL 
03E9 ΕΕ FFDC A STX ADOL 

* 

* BEGIN WHILE LOOP 
ОЗЕС 80 0288 І 5М10 JSR NXTADR AURI» NEXT PARAM 
ОЗЕР 27 ос ВЕС $M30 END OF LINE, EXIT LOOP, 
03F1 FE FFOC A 0х ADDL Xi» ADD TO ВЕ SET 
0374 17 ТВА А? #5 BYTE 
03F5 80 05 BSR SETMEM МЕМСХ) ряд, VERIFY 
037 08 INX MUVE TO NEXT ADD 
03Ғ8 ΕΕ FFOC А STX ADDL 
03F8 20 EF BRA S410 


* END OF LOOP 
. 
0350 7E 0047 І 5м30 УМР МОМЕМО 


11111111 ААА 

* 

* WAIT FOR TTYCCHARSECHO) | СФЕСНО) ВЕЕСНО 

* RETURN NEXT TTY CHAR IN А 

* IF (#ECHO) МОТ 0 + ECHO CHAR 

* 

Зоо ttxttthtthethkétntetettnax 
0400 I WAITTY EQU * 

*LOOP UNTIL INPUT „МЕ, RUBOUT 


0400 wid SUAR GETA READ TTY 
0400 ЗҒ + Sw! 

0401 14 + ВУТЕ GETA 

0402 81 18 СМР А #Е5С ESCAPE ? 
0404 26 03 BNE w20 NU 
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21 PROTO 01/15/76 17104 COMMANDS 


Loc OBJECT M SOURCE STATEMENT 


0806 ТЕ 0040 I JMP ABORT YES, ABORT 
0409 61 7F 820 CMP А #RUBNUT RUBOUT ? 
0408 27 ЕЗ BEQ wid Yes CONTINUE LOOP 
*END UNTIL LOOP 
9400 70 FFE9 A TST ECHO 
0410 27 03 BEQ 430 NU ECHO 
0412 80 0200 I JSR OUTCH ECHO A 
0415 39 #30 RTS 
END 


SYMBOL TABLES 


810 0400 І Ν20 0409 839 0415 


XREG FFEE A 


УРУ 0004 
ΝΑΙΤΤΥ 0400 


ABORT OOAD I АСТАА 0005 1 ACIAC FACE А ACIAD FBCF А 
АСТА! FFF6 А ACIAS ҒВСЕ А ADDABX 0008 A ADDH FFDE А 
ADDL РЕЙС А ADR FFDA А ALPNUM 0013 А AREG  FFEO A 
BAOINP OOAD I* BADTAP 0242 1 BASE | FF90A BLANK 0020 A 
805 FF8F А BREAK 0002 I BREAK! 0087 I  BREG РҒЕС А 
BT1 0240 I BUF FF90 А BUFPTR FFEO A RURN 0001 R 
CHEKSM 011C I CKSM FFES А | СОМНВ 0015 A COUNT ЕРЕЗ A 
CR 000D A CREG FFEBA (51 0129 I CTABLE OO8C I 
CTEND OOAD 1 0110 0082 I DLOOP 007А I DM 0136 I 
0м10 0138 І DM20 OLE I 0М50 015A 1 ECHO  FFE9 A 
ΕΟΡ 0150 1 EOT 0004 де ESC 0018 А FINDS 0252 I 
FSIO 0255 | . 640 Ο1ΑΑ I СЕТА 0014 А  GETRu1 017Е | 
GETRG3 0184 1 GETRGS 0197 І GETRNG 0160 1 60 01ος 1 
IRQVEC FFFB A LAST FFFF А" 10810 0217 I LF 900A А 
LHF2 0100 I LHF3 0213 1" {HFA 0228 I LHF9 O22F I 
LOAD 01401 LOOFST 0186 I MBADR 0280 I MCRLFS 0295 I 
MCSER 0278 1 МЕР  026Е І MONEN! 0041 I MONEND 0047 1 
МОМЕНТ 0041 1 MONITR 0047 1 MOVE 0002 Я  MPEOF 0284 1 
MQUES 0273 [ MRNGER 0265 1 MSGABT 0080 I MSGMON 0080 1 
MTAPER 0281 1 ΝΑ 1 0263 I МАЗ 0208 1 NEXT2D 029Е І 
NMIVEC FFFC А NULL1 0164 I NULLS 0162 Та МХТАОВ 0288 I 
0610 02ЕЕ 1 0620 03021 ОСЦООР 02ҒВ I OFFSET FFD8 А 
OUTCH 0200 І OUTCHX 0208 [+ P2HEX 000 А РАНЕХ 9010 A 
PAHEXS 037С 1 PBADR 030С I PCRLF 0304 1 PHF15 0318 I 
PHF20 0318 | PINIT 0005 R PMSG 0012 А PRI 00F3 I 
PRIO | 0068 | PR20 0102 І PRECIO 035A І PREG — FFFO A 
PREGS 00ЕЕ І PROMAD FFDB А PRTXD 0009 А» PSPACE 0380 I 
PUNBYT 0374 І PUNCH 0306 I PUND10 0320 I PUNO20 U32F I 
РИТА 0011 А РЖ 0388 1 РХ2 0395 I PXISTS 0385 I 
PXISTX 0388 1» ROPRE 01Ғ0 I ROROFF 0398 I RDRUN ОЗА5 І 
READ 0003 R RECTYP FFE2 А RESTAK 010C 1 RNGERR 0191 І 
ROF90 0390 1% RON90 ОЗА? 1“ RSRSR 0000 Я RT10 0051 
RT20 0066 1 RT30 0069 [+ ΘΟ 0066 I< RUBOUT UO7F A 
RUSIO 0112 І SAVESP FFES де SAVEX FFE7 А» SETMI 03Е2 I 
SETMEM ОЗСС 1 SETOFF 03AF 1 SETOUT 0368 І SETPUL ОЗСВ 1 
SM 03Е3 I 5М10 |  ОЗЕС І . 530  OSFD I 5м5 03Е6 Те 
SREG — FFF2 A START 0000 1: STARTI 0007 I SUBXAB 0008 А 
5Μ120 00СС I 54130 0001 I $1180 0008 I $1150 0008 І 
SWIHAN ООВЕ 1 SWIVEC FFFA A TCOUNT FFEA Ae  USNI FFFA А 
R I I 
I 


с- 20 


22 PROTO 01/15/76 17104  COMMANOS 


Lac OBJECT М SOURCE STATEMENT 
CHECKSUM = 075Е 


LENGTH OF DSECT = 0 (0000) 
LENGTH OF [SECT а 1046 (0416) 


NO ERRORS, NO WARNINGS, THIS ASSEMBLY 


AM 


АМЕ. 


1 PROM 


(096 


0000 
0416 


01/15/76 17:14 PROM BURNER ADDITION TU PROTO 


OBJECT M SOURCE STATEMENT 


БДД PE RPE SERPS EE SEES CEE E SEITE SEL иконок лени 


* 


* 


TITLE PROM BURNER ADDITION TO PROTO 


PROM BURNER 


* * + 9 ? + + 9 9» * 9? o? 


0001 A MOVER EQU 
0004 А DELAY EQU 
ОРТ 
1$ЕС 
ORG 
REF 
REF 
REF 
DEF 


* 


* 


VERSION 2.0 01/08/76 
COPYRIGHT 1976 BY AMERICAN MICROSYSTEMS INC. 


ЧТо ТААЛА АЛТ 


ASSEMBLY OPTIONS 


1 O= MOVE ROUTINE EXCLUDED 

10 PUST PROGRAM DELAY» BEFORE УРУ (М5) 
LSKP,LMAC 

$416 


MONENT eGETRNGoONXTADRePXISTS oRNGERRPPBADR 
PCRLF,PSPACE»SETMEM» ABORT sMONITR 

PROMAD ΑΘΗ ADDL ?АООН, COUNT 

BURN» МОМЕ, НЕАО» VFYSPINIT 


* PIA LOCATIONS! 


FBCO А PIA EQU  H*FBCO 
0001 А v50 EQU | H'FBCI*PIA 
0004 А PROM EQU — H'FBCA*PIA 
* 
* STANDARD RAM BUFFER (DEFAULT) 
ж 
FCOO А RAM EQU || HIF COO 
* 
* CHARACTER TYPING MACRO 
* 
TYPE MACRO CHAR 
IF CHAR 0 
LDAA #СНАВ 
TEND 


CALL PRINTA 


MEND 
* 


* RSRSR CALL MACRO 


CALL MACRO ITEM 
қ SWI 
BYTE ITEM 
MEND 


*  RSRSR CALL LOCATIONS 


* 
0011 А PRINTA Еди 
0010 А РАНЕХ Eau 


i? 
16 


АМЕ. 


2 PROM 01/15/76 17:44 PROM BURNER ADDITION TU PROTO 


Loc OBJECT M SOURCE STATEMENT 


* 
a INITIALIZE PROM BURNER PIA'S 


. 
0416 CE FBCO А ΡΙΝΙΤ LDX РТА 


0419 86 38 LDAA #8"00111009 TURN OFF 50V 
0418 AA 01 ORAA V50 0X 
0410 А? 01 STAA V500eX 
0417 86 ЗА : ОАА Я8%00111010 
0424 А? 05 5ТАА PROM*1 X R/W TO READ 
0423 А? 07 STAA PROMe3,X (HOPE NO ODUBLE*ORIVE HERE) 
0425 6F 06 CLR ΡΒΟΜΦ2»Χ PROM DATA SET TO INPUTS 
0427 6F 04 | CLR РВОМ, X 
0429 63 04 сом PROM X SELECT ADDRESS AS OUTPUTS 
0428 86 ҘЕ LOAA Я8%00111110 
0420 А? 05 5ТАА PROMO] ,Х PUINT ТО ADDRESS OUTPUT REG, 
042 39 RTS 

4 

* TYPE А IN BINARY» ENCLOSED BY SPACES 

е 
0430 37 РОВІМ PSHB SAVE B 
0431 36 PSHA 
0432 80 OF BSR PSP PRINT LEADING SPACE 
0834 32 PULA 
0435 C6 08 LDAB #8 6 DIGIT COUNTER 
0437 49 18 ROLA 
0438 36 PSHA 
0439 86 18 LOAA #24 (31/2 ASCI! "О") 
0438 49 ROLA 
043C TYPE 

0 + IF 0 
Ф LDAA 8 
Ф IEND 

0436 + CALL PRINTA 
0436 ЗЕ . swt 
0430 11 + ВУТЕ PRINTA 
083Е 32 PULA 
O43F 5A DECA 
0440 26 FS. BNE 38 
0442 33 PULB 
0443 ТЕ 0007 Я PSP УМР PSPACE PRINT ONE MORE SPACE 


* 
*  RAM/PROM ADDRESS SETUP & VALIDATION 
* 


0446 CE FCOO А RASV LOX #RAM INTITALIZE POINTERS TO DEFAULT RAM 
0449 FF 0000 R STX ADDL 

044C СЕ ΕΕΟΟ A LOX #НАМ+5 12 

044 FF 000Е R STX ADOH 

0452 ТЕ 000Е R CLR COUNT StT FULL PROM FLAG 

0455 80 0003 R JSR PXISTS в. IF NO ADDRESS, 


0450 2? 06 BEQ 141 


045A BD 0001 R JSR GETRNG 

0450 7C 0007 R INC COUNT 

0460 FE 0000 R 141 LOX AODL ULFAULT PROM ADDRESS 
0463 FF 0008 R STX PROMAD IS SAME AS START 
0466 BD 0002 R JSR NXTADR TRY FOR PROM ADDRESS 


AMI. 


3 PROM 


OBJECT 


01/15/76 17114 


06 

0005 R 
0008 R 
0008 R 


0004 R 


000D R 


0006 R 


0? 
oc 


ТАЗ 


ФАЗ 
. 


PROM BURNER ADDITION TU PROTO 


M SOURCE STATEMENT 


BEQ 
LOX 
STX 
LOX 
SEC 
LOAB 
5868 
LDAA 
SBCA 
CMPA 
ВСЕ 
A008 
ADCA 
EORA 
ANDA 
BNE 
RTS 
JMP 


* ТҮРЕ RAM L 


* 
VERR 


* 


* PROM ADDRESS 


* 
ADDRS 


LOX 
CALL 
SWI 
BYTE 
LOX 
LOAA 
BSR 
LDAA 
BSR 
LOX 
LDAA 
СМРА 
ВЕО 
CALL 
SWI 
BYTE 
JSR 
LDAA 
ASLA 
RTS 


LDX 

LDAA 
STAA 
LOAA 
LOX 

ASLA 
INCA 
ASLA 
ASLA 
ΕΟΒΑ 
ANDA 


ROM ADDRESS & DATA 


143 NU, 

ADR Yes, 

PROMAD 

BPROMAD VERIFY THAT RANGE <= 512 
(FORCE BORROW) 

7аХ ЗАБОН+1 

SX ЗА0П|.? 1 

бъ X 

да X 

#2 SHOULD ВЕ 1 ОКО 

144 TUO BIG, 

TP . ALSO SHOULD МОТ OVERSTEP PROM 

0, x 

OsX 

#H'FE 

144 ІТ DOES, 

RNGERR ADDRESS RANGE ERROR 


#ADOL TYPE RAM ADDRESS 
РАНЕХ 


РАНЕХ 

ADDL NUW THE BYTE THERE 

0. x 

РӘВІМ 

ΡΗΏΜΦΩΦΡΙΑ THEN PROM DATA 

ΡΘΒΙΝ 

#PROMAD NUW ТЕ ADDRESS (LOW 8) 
4 Χ DUES NOT MATCH RAM ADDRESS 
5 Χ sADDL 

1 

PAHEX PRINT PROM ADDRESS 


ΡΦΗΕΧ 
PCRLF 
164 
EXIT Сад, 220, Уві 


SETUP 4 DATA READ 


#PROMAD 
їх ιόν 8 BITS 
ΡΒΟΜΦΡΙΑ 
0,Х HIGH BIT 
#РТА 
PUSITION ІТ 
WITH DATA REGISTER SELECT 
РКОМ»3Х INSERT INTO CONTROL 
#12 


4 PROM 


Loc 


04С7 
0469 
09408 
04С0 


04СЕ 
0401 
0403 
0405 
0407 
0809 


9408 
040Е 
08Е0 
04E3 
04Е6 
04Е8 


O4EA 
O4ED 
OEE 
941 
Oars 
0аҒ5 
ода 
04 Ε8Β 
O4FD 


0500 
0502 
0505 
0507 
0509 
050А 
050С 
0500 
050Ε 
0510 
0511 


0534 
051? 
051А 
0516 


01/15/76 17:14 


OBJECT 


Аб 
А? 
А6 
39 


0? 
07 
06 


M SOURCE STATEMENT 


ж ж ж ж 


EORA PROMe*3»X 
STAA PROMe3,X 
LDAA PRUMe2»X 
RTS 

* 

* PROM VERIFY 

* 

vFY JSR RASV 

зу BSR үРҮ1 
все ΙΝ 
BSR JVER 

tN BSR „1 МСАО 
ВНА ιν 

* 

* PROM READ 

* 

READ 458 RASV 

IR BSR ADDRS 
LDX ADOL 
JSR SETMEM 
BSR INCAD 
BRA IR 

š 7 

* INCREMENT RAM/PROM ADDRESS 

* 

INCAD Lox PROMAD 
INX 
STX PROMAD 

INK LOX ADOL 
INX 
STX ADOL 
СРХ ADOH 
BNE ADDRS 

EXIT JMP MONITR 

* 

+ PROM DATA VERIFY» ONE BYTE 

* 

УРУ1 BSR ADDRS 
LOX ADOL 
СМРА 0Х 
ВЕО ax 
COMA 
ORAA ox 
COMA 
8NE JVER 
INCA 

ΙΧ RTS 

JVER JMP VERR 

ps я 

* PROM BURNER ROUTINE 

* 

BURN JSR RASV 
TST COUNT 
BNE 18 
CLR PROMAD 


AMI 


PROM BURNER ADDITION TU PROTO 


READ DATA 


GU SETUP ADDRESSES 
VERIFY ONE LOCATION 
NU ERROR» OR PRINTED, 
PRINT FIXABLE ERROR, 
INCREMENT ADDRESSES 


StT UP POINTERS 
READ ONE ΒΥΤΕ 


S'ORE IN RAM 
ΝΕΧΤΙ 


PUINTERS 


EXIT TO MONITOR 


SET UP 4 READ д BYTE 
CUMPARE TO RAM - 


ОК; Cade Zal» үк 

NU, IS IT FIXABLE? 
1.Е. NO ВАМ=О» PROMs1? 
740. Үш0 


YES, Cale 


NU, TYPE ERROR 


“SET UP PARAMETERS 


IF FULL» UNPARAMETERIZED, 
00 BLANK CHECK 


АМЕ. 


5 PROM 01/15/76 17114 PROM BURNER ADDITION TU PROTO 


Loc OBJECT M SOURCE STATEMENT 


0517 80 91 С BSR А0085 
0521 26 75 BNE мбапор АНА == IT ISN'T 
0523 CE 0008 R Lox #PROMAD INCREMENT PROM ADORESS 
0526 66 ul INC 10X 
0528 26 F5 BNE Це 
052А 66 00 INC ох 
0526 А6 00 ОАА 9»Χ 
052E 46 RORA 
0527 25 ЕЕ 865 16 
0531 6f 00 | CLR 0»Χ 
0533 20 02 BRA 18 
0535 80 83 11 BSR INCAD AUVANCE TO NEXT 
0537 C6 03 18 LDA8 #3 ` SET TRY COUNTER 
0539 60 ¢5 BSR vFY1 CHECK THIS LOCATION 
0538 29 с9 BVS EXIT CAN'T PROGRAM 1 TO 0 
0530 FE 0000 R IL LOX ADDL GET DATUM 
0540 Аб 00 LOAA 0.Х 
0542 СЕ FBCO А LDX $PIA 
0545 А? 06 STAA РИОМФ2Х 
0547 Аб 05 LDAA РНОМ + Цв X 
0589 84 ғ? АМОА 88*11110111 SET вии TO и 
0548 А? 05 STAA РАОМ+ 1. X 
0540 А6 07 LOAA ΡΒΌΜΦ3»Χ TURN IT ARQUND 
054Р 84 FB ANDA 28"11111011 (ТО OUTPUTS) 
0551 А? 07 $ТАА PROMe3»X 
0553 6Ғ 06 CLR ΡΒΟΜΦ2»Χ 
0555 63 06 сом PROMe2,X 
0557 37 Р5НВ 
0558 С6 14 LOAB #20 
055A 80 ЗЕ BSR MSEC CLEAR TIMER 
0556 80 30 {Р BSR MSEC WAIT 1 MS BETWEEN PULSES 
055E А6 01 LDAA У50»Х 
0560 84 F7 ANDA $8'11110111 SET HIGH VOLTAGE 
0562 А? οἱ STAA v50,X 
0564 80 35 BSR MSEC 3 MS PULSE OURATION 
0566 80 33 BSR MSEC 
0566 60 31 BSR MSEC 
056A ЗА 38 ORAA ЕВ!00111000 TURN OFF HIGH VOLTAGE 
056С А? οἱ 5ТАА у50Х 
056Е 5А ОЕСВ 
056; 26 EB ВНЕ ΙΡ 20 ΤΙΜΕΣ. 
0571 6Ғ 06 | CLR PROM*2,X CUNVERT OUTPUTS TO INPUTS 
0573 А6 05 LDAA PROMe1»X TURN OFF WRITE 
0575 8А 38 ORAA $8'00111000 
0577 А? 05 STAA РАОМ+1»Х 

10 IF DELAY OMIT IF NO POST PROGRAM DELAY 
0579 C6 OA LOAB #DELAY 
0578 BD iE А їн 858 MSEC DELAY (8) MS 
0570 5А ОЕСВ 
057Ε 26 FB BNE Дш 

TEND ` 

0580 33 PUL8 
0581 BO 0500 I JSR vFY1 CHECK IT! 
0584 29 ОҒ Ву5 iJ BAD BIT SHOWED UP 
0586 27 AD BEQ 11 6900 
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6 PROM 
Loc 08 JECT 
0588 
21 
0588 86 15 
058А 
058А ЗР 
0588 11 
05866 СЕ ГВСО 
058F 5A 
0590 26 AB 
0592 BD 048 
0595 
0595 ТЕ 0005 
0598 ТЕ 0009 
0598 60 05 
0590 2A ЕС 
0597 Al 04 
05А1 39 
1 
05А2 80 0001 
05Α5 8D 0002 
05А8 27 ЕВ 
OSAA FE 0000 
0540 Аб 00 
-05AF FE 000С 
0582 80 0008 
0585 08 
0586 FF 0006 
0589 BD 0481 
osBC 20 ЕС 


20 Dm ч 


SYMBOL TABLE: 


ABORT 
ADR 
EXIT 
JBAD 
МОУЕ 
NXTADR 
PCRLF 
PROM 


0009 
0006 
04Ғ0 
0595 
05А2 
0002 
0096 
0004 


>» 20) 20 — — bw 


SOURCE STATEMENT 


ТУРЕ at 
+ IF 21 
+ LDAA #21 
+ IEND 
+ CALL PRINTA 
+ SWI 
+ BYTE PRINTA 
Lox APIA 
DECB 
BNE aL 
JSR VERR 
ΠΝ EQu .. 
JBAD JMP PBADR 
NOGDOD JMP ABORT 
* 
* ONE MILLISECOND DELAY 
* 
MSEC TST РЕОМ+ | X 
BPL MSEC 
CMPA РВОМ, X 
RTS 
* 
* MEMORY MAVE 
* 
ЇР МОУЕК 
МОУЕ JSR GETRNG 
JSR NXTADR 
BEA JBAD 
{М LOX ADOL 
LDAA 0.Χ 
LOX ADR 
JSR SETMEM 
INX 
STX ADR 
JSR INK 
BRA 1M 
ELSE 
MOVE EQU RAM 
TEND 


* 
* END OF МООЩЕ 
* 


END 
ADOH 090Е R ADOL 
BURN 0514 f COUNT; 
GETRNG 0001 R INCAD 
JVER 0511 І MONENT 
MOVER 0001 A MSEC 
РАНЕХ 0010 А равін 
РІА РВСО А PINIT 
PRUMAD 0008 В PSP 


0000 
000F 
O4EA 
0000 
0598 
0430 
0416 
0443 


— o4 0 0 Dom WX 0) 
LÀ 


PROM BURNER ADDITION TU PROTO 


МО» ТУРЕ А МАК 
0 


AND TRY AGAIN 


GIVE UP 
PRINT "BAD ADDRESS" AND QUIT 


WAIT FOR СА: TO FLOP 


CLEAR IT (WITH A DATA READ!) 


GET SOURCE ADDRESS RANGE 

GtT DESTINATION STARTING ADDRESS 
ERROR ТЕ NONE 

GET BYTE 

SIORE IT WITH VERIFY 

INCREMENT POINTERS 


CUMPARE TO END 


MURE 
ADORS 9482 I 
DELAY UOOA А 
[мк Оар1 [T 
MONITR UOOA R 
н06000 9598 І 
PAADR 0005 В 
ΡΗΙΝΤΑ 0011 А 
PSPACE 900? В 


АМИ. 


7 PROM 01/15/76 17114 PROM BURNER ADDITION TU PROTO 


LOC OBJECT M SOURCE STATEMENT 
PXISTS 0003 R RAM FCOO А RASV 0446 I READ 0408 I 
RNGERR 0004 R SETMEM 0008 R у50 0001 А VERR uaar 1 
УРУ 04СЕ | УРУ1 0500 1 
CHECKSUM я 93Е6 
LENGTH OF DSECT = 0 (9000) 
LENGTH OF 15ЕСТ = 424 (0148) 


NO ERRORS, NO WARNINGS» THIS ASSEMBLY 


С — 28 
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1 RSRSR 01/15/76 17117 RSRSR == REENTRANT SELF RELATIVE SUBROUTINE ROM 


Lac OBJECT M SOURCE STATEMENT 


TITLE RSRSR == REENTRANT SELF RELATIVE SUBROUTINE ROM 
ооо 001... 4... iti Т ы ЫП 


* 
* (RS)**3 SUBROUTINE ROM FOR USE и1ТН PROTO 
* 


* VERSION 2,0 01/08/76 
* 


* COPYRIGHT 1976 BY AMERICAN MICROSYSTEMS INC, 
* 
ТЫЫ ыыы ыыы ΔΤ ΟΠ; 


0018 А МІТЕМ5 EQU 24 NUMBER OF ROUTINES 
. . 
* CALLING SEQUENCE Loc 
* x SWI 
е ΧΦ} INDEX 
. хг NEXT INSTRUCTION 
. 
0000 ISEC 
ОЗВЕ ORG З5ВЕ 
LOCAL 


DEF RSRSR 


* 
* ENTRY IS УТА LOW ORDER ADURESS OF НОМ 
* ««AODRESS IS PLACED IN SWI VECTOR ADDRESS 
* 
О5ВЕ I RSRSR EQU * 
* 
* GET THE INDEX VALUE 
* DOUBLE ТТ FOR VECTOR ADOKESS INDEX 
* 
058E 30 TSX SP INTO X 
* RESTORE STATE OF INTERRUPT AT TIME OF CALL 
* 
* 
058F ЕЕ 05 LDX SeX X HAS INDEX ADDRESS 
. 
03651 ағ CLR A 
0562 E6 00 LOA B (0Х INDEX INTO В 
0564 58 ASL B DUUBLE 
0565 49 ROL А 
* 
* А.В HAS TWO TIMES INDEX 
. 
* VECTOR OF SUBROUTINE АООКЕЅ5Е5 I$ АТ 512 + ROM BASE 
. 
. FROM HERE TO VECTOR IS 512 © WHERE WE ARE 
0566 80 00 BSR LOCVV 
* 
* з Қ 
0566 І LOCVV Еди . STACK HAS WHERE WE ARE 
0556 39 TSX 
* A»B WILL HAVE INDEX *2 + LOCATION( ТА) 
0569 EB 01 ADD B 1X 
05CB A9 00 ADC А Ο»Χ 


* ADO VECTOR OFFSET 


АМЕ. 


2 RSRSR 


Loc 


05CD 
05CF 


0501 
9503 
0505 
0507 
0509 


0508 
0506 
050Е 
05Е0 
05Е2 
05Е3 


05Е5 
05Е6 


05Е7 


05Е9 
OSEA 
05ЕС 
05ЕЕ 


050 


3 RSRSR 


Loc 


OBJECT 


СВ 24 
89 01 


AD 00 


6C 06 
26 02 
6С 05 


OBJECT 


0002 
0003 
0004 
0005 
0006 
0007 
0008 


0000 
0001 


M SOURCE STATEMENT 


M 


> > 


> > > > > > > 


01/15/76 17117 RSRSR че REENTRANT SELF RELATIVE SUBROUTINE ROM 


$(LOCV&H* OOFF) LOW ORDER EIGHT BITS 


ADDRESS» HIGH 
ADDRESS» LOW 
ADDRESS INTO X 


S!QRE OLD STATE INTO СС 


ADD 8 
ADC А £(LOCy/H*100) HIGH ORDER EIGHT BITS 
* 
* A.B NOW HAS ADDRESS ОР SUBROUTINE ADDRESS 
* 
STA А OX SAVE VECTOR 
STA В 1Х SAVE VECTOR 
0х 0»Χ LUAD VECTOR 
ADD B 1»Χ 
AOC А 0Х 
. AOD IN OFFSET CONTAINED IN VECTOR TABLE 
TSX 
STA А Ο.Χ 
STAB 1.Х 
LDA A 2»Χ 
TAP 
LOX Ода X 
. 
INS 
INS CURRECT SP 
* JUMP TO SUBROUTINE 
JSR OsX 
. 
. NORMAL EXIT FROM SUBROUTINE 
Ж INCREMENT RETURN ADDRESS 
TSX 
INC 6 s X 
BNE *94 
INC 5»Χ 
. EXIT 
RTI 


SOURCE STATEMENT 


* STACK ELEMENTS 


uc εου 
ив εου 
ЦА Eau 
UXH EQU 
ух; Eau 
URH EQU 
URL Eau 


. PUSH ALL 


SRH Eau 
SRL кай 


2 


ο 4 O. Vn P> w 


UNTO 


0 
1 


01/15/76 17417 SUBROUTINES 


АВЕ 


$ТАСК 


STACK POINTER +2 


cc 
в 

А 

хн 
χι, 
RH 
RL 


SY 
sy 


RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 


REGISTERS 


STEM RETU 
STEM RETU 


SINCE JSR 


TO SP 
70 SP 
To SP 
10 SP 
ТП SP 
TO SP 
ТО SP, 


CORRECT ON EXIT 


RN H RELATIVE TO SP 
RN L RELATIVE TO SP 


4 RSRSR 


Loc 


05Ғ1 
0572 
05F3 
05Ғ4 
05Ғ5 


05Ғ6 
05Ғ8 
95Ғ9 
05Ε8 
05Ғ0 
05ҒЕ 
05ҒҒ 


0601 
0603 
0604 
0606 
0608 
0609 
060A 


060€ 


01/15/76 17117 


OBJECT M 


05F1 I 


05 
00 


PUSH ALL 


SOURCE STATEMENT 


LOCAL 
PUSHALL EQU . 
. 


* МАКЕ $РАСЕ 


DES 
DES 
DES 
DES 
DES 


* MOVE STACK DOWN 


LDA B #9 
TSX 

15 LDA А 5»Χ 
STA А OsX 
INX 
DEC B 
8NE 15 


. RECOPY "PUSHED" REGISTERS 


LOA B #5 
TSX 
16 LDA А UCoX 
STA А UC? ox 
INX 
DEC B 
BNE 16 
* 
* EXIT ТО MAIN 
Ф 
RTS 
USER STACK 15 


зъ.. г. 


с- 31 


АМТ, 


* 
* PUSH ALL REGISTERS UNTO STACK==REGISTERS UNMODIFIED 

* 

* CURRENT STACK SP +1 М3 43 +4 +5 +6 +7 +8 +9 
* SRM 5% СС в А XH XL URL URH 
* RESULT STACK BEFORE RETURN TO MAIN EXIT 

*SRH SRL CC B А XH xL URL URH CC B, A ΧΗ χι 
. 


NINE BYTES TO MOVE 
UFFSET OF 5 


FIVE BYTES TO MOVE 


OFFSET BY 7 


АМЕ. 


5 


RSRSR 


Loc 


0600 


01/15/76 17117 POP ALL 


OBJECT M SOURCE STATEMENT 


30 


* є 
* POP ALL REGISTERS 
* 


LOCAL 
0600 I POPALL кой * 
TSX 
* CURRENT STACK 
* SRH SRL CC B A XH XL URH URL CC в 
* RESULT STACK 
* SRH SRL ες 8 A ΧΗ 
* 
* RECOPY "PULLED" REGISTERS 
* 
05 LOA В #5 Five OF THEM 
09 Щи LOA А UCe?, X OFFSET OF 7 
02 STA А UC»X 
INX 
DEC B 
F8 BNE Ще 
* 
* SHIFT EVERYTHING OVER 
* 
09 | LDA B #9 NINE BYTES 
03 15 LDA А URL=5,X 
08 STA А URL»X OFFSET 5 
DEX 
NEC B 
ед BNE 15 
* 
* FINALLY INCREMENT SP 
* 
INS 
INS 
INS 
INS 
INS 
RTS 


C— 82 


XL 
UR 


6 RSRSR 


Loc 


0628 
0629 
0628 
0620 
062F 


0631 


0632 
0633 
0635 


063? 
0639 


063B 


7 RSRSR 


LOC 


0636 


0630 
063F 
0640 
0642 
0644 
0645 


OBJECT M 


A6 05 
Е6 06 
А? 04 
Е? 03 


А6 04 
А? 05 


А6 03 
А? 06 


OBJECT M 


0636 I 
0 


01/15/76 1711} ТХАВ/ТАВХ 


SOURCE STATEMENT 


* 
* 
* 
ТХАВ 


ЗТАВ 


* 


01/15/76 17117 


* 
* 
* 
XABX 


Ф Ф 6 + 


TRANSFER 
TSX 
LOA 
LDA 
STA 
STA 


RTS 


TRANSFER 
TSX 
LOA 
STA 


LDA 
STA 


RTS 


ХАВХ 


EXCHANGE 
Eou 
TSX 

CURRENT 

RESuLT 
LDA 
PSH 
LDA 
BSR 


PUL 
BRA 


ar => 


A 
A 


A 
A 


> ο» > 


X TO 


UKHeX 
UXL eX 
UA. X 
UB aX 


А,В TO X 
UA» X 
UXHs X 


UB» X 
UXL»X 


SOURCE STATEMENT 


* 


STACK 


SRH SRL 


UXHe X 


UXL»X 
TABXe1 


STAB 


AMI. 


Α»Β 

X HIGH 

X LON 

TU À 

TU B 

А 

ти X HIGH 
в 

ту X 10и 
x 


ç 8 A ΧΗ XL URH URL 


XL ΧΗ Α 8 
РІСК UP ух 


THEN GO TRANSFER А,В TO X 
TU STORE IN A»B 


АМЕ. 


8 RSRSR 
Loc OBJECT M 
064? I 
0647 34 
0648 34 
0649 30 
065A 86 09 
9646 Еб 02 
064Е Е? 00 
0650 08 
0651 4А 
0652 26 г8 
0654 30 
0655 Аб 05 
0657 A? 09 
0699 A6 06 
0658 А? ОА 
0650 39 
065E І 
Q65E 30 
0657 Аб 09 
0661 А? 05 
0663 А6 OA 
0665 А? 06 
0667 86 09 
0669 1 
0669 Eo 08 
0668 E7 ОА 
0660 09 
066Е 4А 


01/15/76 17117 


PUSX/PULX 


SQURCE STATEMENT 


LOCAL 
* PUSH x 
* 
PUSX EQU * 
* 
* GET SPACE IN SPACE 
* 
DES 
DES 
TSX 
* МОУЕ STACK DOWN THO 
LDA А #9 
* 
ЗА LOA B 2eX 
STA R OsX 
ΙΝΧ 
ПЕС А 
ANE ТА 
* 
* STACK MOVED == INSERT 
TSX 
LDA A UXH»X 
STA A XH*4,X 
LOA А UXL»X 
STA А UXL*4,X 
* 
RTS 
* STACK ОМ RET 
* SRH SRL С в 
. SP 
* 
* PUL X 
LOCAL 
PULX EQU * 
* GET X FROM STACK 
* 
TSX 
LDA А UXH*4,X 
STA А UXHsX 
LDA А пхуечех 
STA A ИХ » X 
* 
* NOW MOVE uP TWO- 
LOA A “9 
ТА EQU * 
LOA R 8,Х 
STA R 10»X 
ПЕХ 
NEC А 


C— 34 


MUVE TOTAL OF 9 BYTES 

X 

A χη XL ЧЕН URL XH 
CURRENT X DN STACK 

REG X 

BYTE COUNT 


XL 


АМЕ. 


9 RSRSR 01/15/76 17117 PUSX/PULX 


Lac OBJECT M SOURCE STATEMENT 


066F 26 F8 8NE tA 
* UPDATE SP 
0671 31 INS 
0672 31 INS 
* 
0673 39 RTS 


AMI. 


10 RSRSR 01/15/76 17417 ADOXAB 


Loc OBJECT M SOURCE STATEMENT 
LOCAL 


* 
* ADD X TO А,В 
* 

0674 I ADDXAB EQU * 


0674 30 TSX 

0675 80 C6 BSR XABX*1 EASY МАУ: EXCHANGE АВ 4 X 
0677 BD 03 BSR АОПАВХ + 1 AUD OTHER WAY 

0679 20 ¢2 BRA ХАВХ%1 THEN EXCHANGE BACK 


* ADD А,В ТО x 


0678 30 ADDARX TSX 
067C Аб 03 (ОА А (θ»Χ 
067E Ев 04 LDA В  ЦА»Х 


* 

* 

ж“ CODE SHARED Ву АООАХ» INDEX 
* 

А 


0680 I ADDAB εου . 
0680 AB 06 ADD А ухі»х AUD υχι TO UB 
0682 АТ 06 STA А UXL»X SIORE INTO υχι 
* 
0684 £9 05 ADC В UXH,X AUD UXH TO UA 
0686 07 STAUXH ТРА SAVE STATUS 
0687 ЕГ 05 STA В UXH,X 51086 INTO XH 
* 
0689 60 06 TST UXL»X TEST LOW BYTE FOR ZERO 
* 
* CONE SHARED BY АППАВХ» МОСВ» MULI6 
* 
0688 I TESTZ Eau * 
0688 27 02 BEQ ТА YES == HIGH BYTE STATUS IS TRUE RESULT 
0680 84 FB AND А £H'Fü NU == Z BIT CLEARED 
068F AT 02 ТА STA А tC eX SAVE STATUS 
* 
0691 39 RTS 
* 
a ADD А то x 
* 
0692 I АПОАХ εου . 
0692 30 15Х 
0693 А6 04 LDA A UA X 
0695 I А00? Eau * 
0695 C6 00 LDA R 20 


11 RSRSR 


Loc 
0697 


0699 
069А 
0696 


OBJECT M 


20 Е? 


0699 I 


01/15/76 17117 


АООВХ 


АОПХАВ 


SOURCE STATEMENT 


BRA ADDAB 


ADD В то x 


EQU * 
TSX 

LDA А UB»X 
BRA А002 


AMI. 


12 


01/15/76 17417 


RSRSR 

Loc OBJECT M 

069Е 30 

069F 80 ος 

06А1 80 03 

06A3 20 98 
06А5 I 

06A5 30 

06А6 Е6 05 

06А8 А6 06 

Q6AA АО 03 

06АС А? 06 

06AE Εξ 04 

9680 20 04 
0682 І 

0682 30 

0683 E6 04 

0685 А6 06 

0687 10 

0688 А? 08 

06BA Е6 05 

0686 С2 00 

068Ε 20 C6 
0660 I 

06C0 30 

0661 Еб 03 


SUBXAB 


SOURCE STATEMENT 


* 
* 


* 
SUBXA 


4 
* 


* 
SUBAB 


* 
* 


* 
SUBAX 


1508 


* 
* 


* 
SUBBX 


SUBTRACT Х FROM 


15Х 
ASR 
BSR 
BRA 


ХАВХ + 1 
SUBABX*1 
ХАВХ+ 1 


SUBTRACT А,В FROM 


EQu 
75х 
LDA 
LDA 


508 
STA 


586 
BRA 


в UXH X 
А UXL eX 


uB. X 
UXL»X 


> > 


B UA»X 
STAUXH 


SUBTRACT A FROM 


SUB 


Eau 
TSX 
LDA 
LOA 
SBA 
STA 


LOA 
986 
BRA 


Егу 
TSX 
LDA 


* 
В υλ»χ 
A UXLeX 
А UXL X 
В ^ UXHeX 
B #0 
STAUXH 
FROM X 
* 
В υθ»χ 


Asp 


SUB А FROM XL 
STORE XL 


13 RSRSR 


Loc 
0663 


9665 


06C7 
0668 
0669 
ОбСА 
06CB 


06со 
06CF 
0600 
0602 
9604 
0605 
0606 


01/15/76 17117 


OBJECT M 


20 


FO 


0665 I 
11 


SUBXAB 


SOURCE STATEMENT 


BRA 1508 
е 
* 
е INDEX! Хізх + A%B 
* 
LOCAL 
INDEX көп * 
BSR MP Y8 


* 
* EXCHANGE А 
* 


PSH 
TAB 
PUL 
15Х 
ВВА 


e MUL8! А,В 


MULB EQU 
BSR 
15Х 
STA 
STA 
TPA 
TST 

УМРТ2 ВЯА 

* 

* 


* Н 162416 ВІТ MULTIPLY 


(SAVE USERA»B) 


АВ 15 USERA®USERB 


& В TO SHARE CODE Ми ADDABX 


А 


із A%B 
MPY8 
B υὐΒεχ 


А UAsX 


TEST2 


AsB,X 18 A,B*X 


А,В s PARTIAL PRODUCT 


SAVE RESULT 
SET UP N ВІТ 


AMI. 


UPDATE USER C & RETURN 


USERASUSERA = MULTIPLICAND 


. 
* 
* 
* USERX = MULTIPLIER 
а 
. 


ЇР 
LOCAL 
MULIG LNA А 
PSH А 
тех 
CLR А 
CLR в 
ROR 
ROR 


МІТЕМ5е24 


216 


ОХНФ1 o X 
ИХ 1, X 


* LOOP 16 TIMES! 


. 

1LOOP ВСС 
ADD В 
АПС А 


. 
SSHIFT ROR А 


ROR В 


SSHIFT 
UB* 1o X 
UAe1 eX 


(UMIT IF NITEMS < 25) 


PUSH COUNTER INTO STACK 


e 


SHIFT LSB INTO CRY 


MULTIPLIER 15 EVEN 
ΑΡΗ 1= AsÜ + ИЗЕНА, В 


SHIFT EVERYTHING RIGHT 


АМЕ. 


14 RSRSR 01/15/76 17417 SUBXAB 


Loc OBJECT M SOURCE STATEMENT 


ROR UXH+1 X 

ROR UXL+1 X 

ОЕС 0 x DEC, COUNIER 
BNE 00Р 


» 


END LOOP 


INS RESTORE SP 
TSX 

STA В UBeX 

STA A ПА,Х 


SET USER CC! NeNCMSBYTE) 
2 im AND (7(М5ВУТЕ ) oo ees 2 ( | 5ВУТЕ )); 
У за 0} 
CRY за O, 
THE LAST ADD ВЕЗЕТ СВУ. STA SET NsNCMSBYTE) 6 Vaso, 


+ + *o* >т ο 5 


ТРА 
ОВА В UXHeX В: = OR OF 3 LS RYTES 


ORA В ИХ ах 


USER Сс HAS CORRECT Моу„вС. GC HAS CORRECT 2 FOR LS BYTES, 
GO TO END ОҒ ADOXAB TO UPDATE USERC, 


+ з © © 


BRA JMPTZ 
TEND 


SUBROUTINE MPYA! AASB IsUSERA«USERB 
А = PARTIAL PRODUCT 
В s MULTIPLIER & 158'5 OF PAR, PROD, 
USERA = MULTIPLICAND 


т Y * ee $ 6 


LOCAL 

0608 86 08 MPY8 LOA А #8 PUSH COUNTER INTO STACK 
0604 36 PSH A 

* STACK x COUNT, Re R, В, Re С» B, А, X» Χρ В» А 
0608 ағ CLR A 
0606 30 TSX 
0600 Е6 06 LOA В UB*3»X USMULTIPLIER 
060F 56 ROR B 

* 


* LOOP 8 TIMES: 
* 


06Е0 24 02 ει 00Ρ BCC sSHIFT MULTIPLIER IS EVEN 
06Е2 AB 07 ADD А UA*3,X 

a * 
06Е4 46 ISHIFT ROR А ` SHIFT LSB OF A INTO В 
06Е5 56 ROR A 
06E6 бА 00 DEC 0» X CHECK COUNT 
0668 26 F6 BNE %.00Р 


* 


* END OF LOOP 
* 


15 


16 


RSRSR 
LOC OBJECT 

O6EA 31 

0668 39 

RSRSR 
LOC — OBJECT 
0124 
06EC 
06ЕС FFOS 
O6EE ΕΕΙΕ 
0670 ΕΕ38 
06F2 FFaO 
06Ғ4 FF48 
06Е6 РЕ51 
06ЕВ FF66 
O6FA FFTA 
06ҒС ΕΕΤΕ 
06ҒЕ ЗАТ 
0700 FF99 
0702 FF9C 
0704 ЕРА! 
0706 FFAC 
0708 FF88 
070A 0017 
o? oc 0010 
070Е 002F 
0710 004F 
0712 0050 
0714 0086 
0716 0096 
0718 ГРАО 
O71A FFB3 
0 


M 


M 


РР P > P > p p r P р- у» 1» > p > > > ро > p у> — p> 


01/15/76 17:17 


SOURCE STATEMENT 


SOURCE STATEMENT 


* 
LOCV 
SVECTOR 


SUBXAB 


INS 
RTS 


EQu же ОСУУ 
εου . 
WORD PUSHALL** 
WORD РОРА| | = 
WORD ТХАВ ча 
WORD ТАВХза 
WORD ХАВХе» 
WORD РИЗХ=» 
WORD РУ Хож 
WORD АООХАВ =» 
WORD АОПАВХе# 
WORD АООАХ=* 
WORD ΑΌΌΒΧ«4 
WORD SUBXAR@* 
WORD ЗИВАВХ=* 
WORD SUBAX«* 
WORD $ИВВХ»* 
WORD P2HEXee 
WORD РаНЕХ = ж 
WORD PRINTA** 
WÜRD РМЕ55е% 
WORD УАЦАМе ж 
WORD | НРИТА Фе 
WORD ΕΟΝΗΒ.: 
WORD INDEX«« 
WORD MUL8=* 
IF NITEMS=24 
WORD MUL16%* 24 
IEND 


RESTORE SP 


01/15/76 17:17 SURROUTINE ADDRESS VECTOR 


* RELATIVE ENTRY POINTS TU SUBROUTINES VECTOR 


— 

2 
о 
m 
> 


ча чо Q £ Ç νι 


AMI. 


17  RSRSR 01/15/76 17417  PAHEX/P2HEX 


LOC OBJECT M SOURCE STATEMENT 
* LOCAL 


* 
* PRINT 2/4 НЕХ CHARS FROM MEMCUXSUX*1) 

* UX IS INCREMENTED UPON DUIPUT I.E. UX = UXe2 
* А 

Р 


071C I SHEX EQU * 
071с 30 . Τ5Χ 
0710 ЕЕ 05 LOX UXH»X USERS x 


* 
* PRINT 2 HEX CHARS FROM  МЕМСИХ) 
0721 I P2HEX Еу œ 


07iF 80 06 ASR PHEX PRINT МЕМО) 


0721 30 TSX 

0722 ЕЕ 05 LOX UXH»X USERS X 

0724 80 01 RSR PHEX PRINT MEM (X) 
0726 39 RTS 


18 RSRSR 01/15/76 17117 PHEX 


Loc OBJECT M SOURCE STATEMENT 


* 


# PRINT 2 HEX CHARS FROM MEM(X) 
* 


LOCAL 

0727 I PHEX EQU * 
0727 A6 00 LDA А OX GET THE CHAR 
0729 80 29 RSR ASCIIR CUNVERT THE RIGHT NIBBLE AND RESULT IN A 
0728 36 PSH A SAVE IT 
0726 AG 00 LDA А Ο.Χ GET CHAR AGAIN 
0?2Е 80 20 BSR ASCIIL CUNVERT THE LEFT NIBBLE INTO A 
0730 80 OE BSR PUTAX PRINT A REG CHAR 
0732 32 PUL А RECOVER SAVED 
0733 80 10 BSR PUTA ее. ТНЕМ FALL INTO PINCX 


жетеда 
. 
*. INCREMENT THE USERS X IN THE STACK 


еу 
LOCAL 
0735 I PINCX εου * 

0735 30 TSX SP IS #2 SINCE TWO BSR DOWN IN CALLS 
0736 6C 08 INC UXL*2, X INC MEMORY X LOW 
0738 26 02 BNE 1875 UVER FLOW MEANS INC HIGH PART 
073A 6С 07 INC UXH+2 X YES == INC HIGH 
073C 39 1ВТ5 RTS EXIT 


AMI. 


01/15/76 17:17 PRINT CHAR 


19 RSRSR 

Loc OBJECT M 
0730 I 

0730 30 
073Е А6 04 
0740 FE ΕΕΕό А 
0743 ЕЕ 00 
0745 
0745 36 
0746 Аб 00 
0748 85 02 
074A 27 FA 
074C 32 
0740 А? 01 
O74F 39 


SOURCE STATEHENT 


й 
* PRINT THE CHAR IN USERS А 


* 
PRINTA εοι) Ф 
TSX 
LDA А UA, X ОКТ CHAR 
LOCAL 
* 
* PRINT CHAR IN DESIGNATED REG 
* АСТА ADDRESS IN X 
ОРТ LMAC 


* 
. PUT MACRO ВХ 


+ 
+ 
+ 


+ 
* 
+ 
Ф 


PSH 8x SAVE REG 
ΕΒΕΑΟΥ LDA ВХ Oox АСТА STATUS 
BIY 8x #802 READY ? 
BEQ READY NOT READY 
PUL Bx RESTORE CHAR 
STA Вх  1»Х PRINT CHAR 
RTS 
MEND 
* 
* PRINT CHAR IN А 


* 
РИТАХ LOX H*FFF6 GET INDIRECT ADDRESS OF ACIA 


0х О»Х GET ACTUAL ADDRESS ОҒ АСТА INTO X 
PUTA PUT А 

PSH А SAVE REG 
+ ВЕАОУ LOA А OX АСТА STATUS 

BIT A 202 READY 2 

βεο tREADY NUT READY 

PUL A RESTORE CHAR 

STA А 1Х PRINT CHAR 

RTS 


АМЕ. 


20 


21 


RSRSR 
Loc 
0750 44 
0751 44 
0752 44 
0753 44 
0754 84 
0756 88 
0758 81 
075A 23 
0756 8B 
075Е 39 

RSRSR 
Loc 
075Ε 30 
0760 ЕЕ. 
0762 А6 
0764 81 
0766 27 
0768 80 
076А 80 
0766 20 
076Е 39 


OBJECT M SOURCE STATEMENT 


OBJECT M SOURCE STATEMENT 


79750 I 


01/15/76 17117 


* 

* 

+ CONVERT 

* LEFT PART 
* 

А 


SCIIL 


HEX/TO/ASCII 


LOCAL 


εου 
LSR 
LSR 
LSR 
LSR 


> > > >» 


+ INNPNSTINN 


ОЕ . ASCIIR 
30 
39 
02 
07 
1875 


01/15/76 17117 


* PRINT MESSAGE 


O75F I РМЕ55 


tRTS 
0004 А ЕТХ 


AND А 
ADD А 
СМР А 
ALS 
ADD A 
RTS 


#Н "ОГ 
#н" 30 
#H°39 
sRTS 
#7 


PRINT MESSAGE 


LOCAL 
EQU 
TSX 
LDX 
LDA А 
CMP A 
REQ 
BSR 
ASR 
BRA 
RTS 
EQU 


а FROM HEX TO ASCII LEFT/RIGHT NIBBLE 


A HAS CHAR TO BE CONVERTED 


CLEAR LEFT PART 


0 Th 9 
YES NONE 
NU THEN А TO F 


POINTED TO BY х АМО TERMINATED BY ETX 


GET USERS x 

GET CHAR 

15 IT TERMINATOR 
DUNE 

PRINT A 

INC USERS x 

LUOP TILL NONE 


АМЕ. 


cHAR TO TO ВЕ TESTED 


GET CHAR ADDRESS 
TEST MEMCX) ALPHANUMERIC 


CARRY = CURRENT CARRY (AND OTHER FLAGS!) 


GET THE CHAR 


TUO SMALL FOR ALPHA »IS ΙΤ NUMERIC 


SET v IF >F 

(QUIT IF NOT HEX (Cal) 

CUNVERT LETTER TO HEX 

STRIP OVERBITS FROM HEX DIGIT 
SET C FOR VALID A/N 


NUMERIC TESTING 
NUT NUMERIC 


IT IS IN 0е9 
RESET CARRY FOR NOT A/N 
SET v FOR NOT HEX EITHER 


22 RSRSR 01/15/76 17317 VALID ALPHA/NUMERIC 

Loc OBJECT M SOURCE STATEMENT 

. 

* X HAS ADDRESS OF 

* FOR BEING ALPHA NUMERIC 

* CARRY SET IF TRUE 

O76F I VALAN Еди * 
LOCAL 

076Ғ 30 TSX 
0770 ЕЕ 05 LOX UXH»X 
0??2 80 05 BSR ALPNUM 

. 

* SET USER'S 

* 
0774 07 SCARRY TPA 

* 
0775 30 SETUS TSX 
0776 А? 02 STA А UC»X 
0778 39 RTS 

* 

* 

* SET CARRY IF MEM(X) IS ALPHANUMERIC 

* CLEAR у IF HEX DIGIT 

* 

0779 I ALPNUM εου . 

0779 де 00 LDA А 09Х 
0778 81 41 CMP А #'А 
0770 20 QE BLT 1NUM 
O77F 81 SA CMP А #"2 
0781 2Е 12 BGT а МОТОК 
0783 81 C? CMP А 2128 "6 
0785 29 10 AVS 3 АТ5 
0787 80 07 SUB А #7 
0789 84 ОГ 10K AND А #15 
0788 00 SEC 
078Ç 39 RTS 

. 
0780 81 30 мум СМР А #'0 
075Ε 29 Oà BLT + МОТОК 
0791 61 39 CMP А #"9 
0793 2F Fà RLE 10K 
0795 06 $ МОТОК εις 
0796 0B SEV 
0797 39 + ВТ$ RTS 


АМЕ. 


23 RSRSR 01/15/76 17:17 INPUT A 


Loc OBJECT M SOURCE STATEMENT 
0798 20 98 JPINCX BRA РІНСХ EXTRA BRA ТО REACH PINCX 


ЖҮТУТТІТРТТІТТІТТГІШГТІУТЭЦУОГТТТГГІЕГЕІТЕРІЛТІСТІ, 
* 

* INPUTA! 

ы INPUT АСТА DATA INTO А REG 

* STRIP PARITY 
* 
* 


ты Ал лл ΑΣ ΛΣ ΠΠ 


LOCAL 
0794 I INPUTA εου * 
079A ΕΕ FFF6 А LDX H*FFF6 ФЕТ АСТА INDIRECT ADDRESS 
0790 ЕЕ 00 Lox ох GET АСТА ADDRESS 
* $ 
2079Ғ Аб 00 WAIT LDA А OsX ACIA STATUS 
07 ΑΙ а? ASR А CARRYIsRDRF 
07А2 24 FB BCC 1WAIT NU INPUT, LOOP. 
* 
ОТА4 Аб 0] LDA А 1Х АСТА ОАТА 
07А6 84 7F AND А #H*7F STRIP PARITY 
07А8 30 TSX PUT RESULT ONTO STACK 
0749 AT 04 STA A UA»X 
07А8 39 RTS 


24 RSRSR 
Loc 08 ЈЕСТ м 
ОТАС І 

07АС 30 
0740 Е6 03 
ОТАҒ 6Р 04 
0781 6F 03 
0783 30 
0784 ЕЕ 05 
0786 80 ¢1 
0788 25 09 
ОТВА БА 
0?ВвВ 2Р 04 
0780 80 09 
078Ε 202 
07С1 20 ві 
ο7ς3 30 
0764 ЕЕ 05 
0766 80 ві 
o7c& 29 18 
ОТСА 37 
07СВ (6 “04 
0760 30 
07СЕ 68 04 


01/15/76 17117 


HEX TO BINARY 


SOURCE STATEMENT 


і 
що 


ТТУ t... вани CESS hh nnt tt пъп па t. k. бай ват 


CONHB==sCONVERT HEX TO BINARY? 
SCAN UP TO В ASCII CHARACTERS STARTING АТ X 


LOOKING FOR А VALID HEX NUMBER, 
EQUIVALENT OF NUMBER IN А, 


16 BITS. IGNORE MSB'S, 


BsMAX, 


A»BsBINARY RESULT 


# 

* 

* 

* 

* 

* 

* 

* INPUTS 
з 

* 

a OUTPUT: 
* 
* 
* 
* 


RETURN BINARY 
В. IF NUMBER HAS MORE THAN 


XwADDRESS OF 1ST CHAR ТО BE SCANNED, 
# OF CHARS TU BE SCANNED. 


CARRYsi IF VALID NUMBER IS FOUND 
X POINTS TO LAST CHAK SCANNED 


ТТТ COCO CCPC # ЗОЯ Й папийай ESLER ολ, 


LOCAL 

CONHB EQu * 
TSX 
LOA В вх 
CLR UA X 
CLR uB X 


* 


* LOOP WHILE 
* 


NOT ALPHANUMERIC 


GET MAX COUNT 
CLEAR USER'S A,B REGS 


AND COUNT > 1 


‘LOOP! TSX 
ιο. — UXH»X GET CHAR ADDRESS 
BSR ALPNUM 15 MEM(X) ALPHANUMERIC? 
BCS sFOUND YES, STOP SCANNING 
DEC B DtC COUNT 
RLE 1ENDCNT CUUNT EXHAUSTED 
RSR JPINCX INC USER'S X 
BRA 1,00P1 
* 
* END LOOP 
* 
* COUNT EXHAUSTED WITH NO SUCCESS, 
* (CARRY WAS RESET BY ALPNUM) 
* 
SENDCNT BRA SCARRY RESET USER C АМО RETURN 
* 
* WHILE HEX AND COUNT > O SHIFT MEM(X) INTO UA»UB 
* 
* BEGIN nUTER LOOP 
1FOUND TSX 
LOX ухнех 
BSR ALPNUM смут МЕМСХ) ТО HEX 
BVS 1N0G000 INVALID CHAR 
PSH B SAVE COUNT 
(ОА B #4 LUOP COUNT 
* 
* SHIFT LEFT ЧА» ИВ 
* 
TSX 
1SLOOP ASL UB*1»X +1 TO COMP, FÜR PUSH 


AMI. 


25 RSRS 


Lac 


0700 
07D2 
0703 


0705 
0707 
0709 
070А 
ОРОС 
0700 


07ОР 
ОРЕФ 


ОРЕ? 
07ЕЗ 
07Ей 


SYMBOL TABLE: 


ADDAB 
АОПХАВ 
ASCIIR 
INPUTA 
LOCVV 
P2HEX 
PMESS 
PUSHAL 
RSRSR 
SRL 
SUBAX 
TABX 
uB 

UXH 


OBJECT 


07 
4c 
20 ВР 


0680 
0674 
0754 
079А 
0568 
0721 
075Ε 
05Ε1 
058Ε 
0001 
0682 
0632 
0003 
0005 


> J> e pe NM [ыыы 


01/15/76 17417 


+ 


HEX TO BINARY 


SOURCE STATEMENT 


ROL 
I ОЕС 
s Ват 


ОВА 
STA 
PUL 
BSR 
DEC 
BGT 


UA* АХ 
SLOOP 


UB*1»X 
увеї»х 


JPINCX 


1FOUND 


* END QUTER LOOP 
SEC 


BRA 


SCARRY 


* 

* NON*HEXx CHAR FOUND, 
* HEX NUMBER, 

* NUMBER IS VALID. 


* 
*NOGOOD ТРА 


INC А 


RRA 


END 


ADDABX 0678 І 
А002 0695 1 
CONHB O7AC 1 
JMPTZ 0606 I 
МРУВ 0608 1 
РАНЕХ 071C 1 
РОРА | 0600 І 
PUSX 9647 1 
SCARRY 0774 I 
STAB 0620 1 
SUBBX 06С0 І 
TESTZ 0688 І 
ис 0002 А 
UXL 0006 A 


CHECKSUM а С70Е 


LENGTH UF DSECT а 
LENGTH OF ISECT s 


м 


NO ERRORS, 


* 


0 (0000) 
552 (0228) 


SETUS 


ADDAX 
ALPNUM 
ETX 
JPINCX 
му, 
РНЕХ 
PRINTA 
PUTA 
SETUS 
STAUXH 
SUBXAB 
TXAB 
URH 
VALAN 


той! IN NEW CHAR 


RETRIEVE COUNT 
INC USER X 


REPEAT 


VALID NUMBER 
SET USER С AND RETURN 


IF CHAR з G«Z» THIS IS NOT A VALID 
OTHERWISE, CHAR 15 A DELIMITER AND 


0692 
0779 
0004 
0798 
06CD 
0727 
0730 
0745 
0775 
0686 
069Е 
0628 
0007 
076Ғ 


МО WARNINGSe 


C — 48 


TUGGLE CARRY BIT 
SETUP USER STATUS 4 RETURN 


I ADDBX 0699 I 
I ASCIIL 0750 I 
A INDEX 0655 I 
I 10СУ 0124 А 
1 NITEMS 0018 A 
I PINCX 9735 I 
I PULX 965Е I 
I РИТАХ 0740 І 
1 SRH 0000 А» 
1 SUBABX 0645 I 
I SVECTO 96ЕС І» 
I UA 0004 A 
Ae URL 0008 A 
I ХАВХ 963с 1 


THIS ASSEMBLY 


AMI. 


PROTOTYPE SYSTEM SOFTWARE IN HEX TAPE FORMAT 


$00F 000920202920202029202020202070 
S121F00020057EFOB7FBCE3607B7FFEB32R7FFEDF7FFECFFFFEEBFFFF28EFFBFCEFODO 
S121FO01EO2FFFFFCFFFFFBCEFODIFFFFFACEFUBEFFFFFACEFOOSFFFFF68603B7FRCE29 
512 17ОЗСВЬО1 В7ЕВСЕВОРА 1 6 ВОР 3048EFFBFRDF39BnB6FRCFRS3bEBDF2UDCEFF9O0FFFFOE 
5121ЕОЗАЕООПТЯЕРЕЗВСЕГО? 26022047 BNF 400A700085 1 0026 ЕРНОЕ JU508FFFFEOCEÓ9 
$121F078F08CA1002604£E016E00080808BCFUAD26F020214CF1ADA7F 19F50F30842EC 
S121F096F51440F 5A256FACEA9F4DB53F3£E344F13652FOEE45F 150CcF 2738EFFBE3F56 
S121F0B412208A8DF 4168680201A30EE0SA6002B0C80182A4037EFSBEF EFFF46E0030F2 
S121F0D26CO0626026c05CEFFEB33E700088CFFF226F7AF00818126040007201E8D0360 
S121FO0FO7EFÜATCEFFEBC6033FOFRDF3805A2EF8C6038DF37C5AZEFABDF30439BEFFA9 
S121F1QEF2CEFFF1A6003609BCFFEA26F73BB6FFF4360D0r29rc33531126013930093FF2 
S121F12C0FBÜF380CcF2787EFOBOBD3SCEFFDCBDF37CFEFFDC3FUFBUF 380FFFFDCBCAB 
S121F14AFFDE270CB6FF0DBAQF26E9BDF304200E7TEFOU1CEF2B8A3F 1206 3R4F RDF 20087 
S121F1685A26F920EDBUF2BBFEFFDAFFFFDCFFFFDEBDF2RB2706FEFFÜAFFFFDECEFFF? 
S121F18690A64cgt64p E040A24C2 4 O6CEF2657EFOROFEFFÜEORFFFFÜLJ9BDF2088270694 
S121F1A4FEFFDAFFFFFOTEFIOCCEOnOQFFFFDBFFFFDCO9FFFFDEBUF2BB27IEFEFFDA23 
S121F1c2FFFFÜSBDF2882713rFEFFDBFFFFDCCEOOO0FFFFDBRDAGFEFFUE20D98DF34505 
S121F1E0807C8gF4098132527rF7B7FFE27FFFE4BÜF29E4ASABDARTFFEJUDF29EB7FFDAFS 
S121F1FEBDF29ERBFFD9B7FFDbBBÓFFDAB9SFFDBB7FFDAR6FFE281312614BDF29EFEFFO02 
S121F21CDABDF3AFOBFFFFDATAFFE32EEE20048139261380F 11CB6FFE2813926A4n086 
S121F23AF39BCEF26F7EFOBORDF395CEF2813F127CFFE9nDFa0020F B7 FFFE9RDF40082 
S121F2586815326F9394241442094144520452414£47452045525204454F46043F3F3F91 
S121F2763F04434553402045525204544415045204552520453393033340303030464389 
$121F294040004000000005331048DF4001680F409363730C6023F15249417FBFFEA4D?7 
S121F2B2F7FFE43131397FFFDATFFFDBBSDF385260139C647 ЗЕ 1SFFFFEOB7TFFDAFTFFRA 
$121F20008A0003F13250139 7TEF0ADA60037F6FBCES7240AFGFBCFC11B26037EFOADCE 
$121F2EE3F11810D0260E860A3F114FC6043F1154265FB86903339860020058DF 16DCE B8 
S121F30C0000FFFFDa380AS52706FEFFDAFFFFDBF6FFDFForFÜDROFFÜEB2FFDC2604C152 
S121F32A41E2302C61c:5C5C5CF7TFFE3CEF2953F 125FCEFFE3803437FEF FÜCB6FFDBF6AA 
S121F348FFU93FOBFFFFDACEFFDA338DIF8DIDFEFFDCRD182EFCFFFFUCCEFFEAS3E7OF 
$121F366008DOBFEFFDCRCFFDE26AA7EFOA1EBOO3FOF7AFFF3393F10900086203F115C 
S121F38439FEFFE0A0003F132507810D27030820F 3FFFFE081003986U01R7FBCEB61315 
$121F3A23F1139864187F8CE86113F113936R6FFDCFG6FFDD3FOB220ABAGFFDEFOFFDFEÀ 
S121F3C03F0B824073285FF3F11201732470041002710FFFFDACEFFDÜAPDC18DAOCEF200 
S121F 3DESD07EF 9HO39BÜF2BBFEFFDAFFFFDCRUF2RB8270CFEFFDCI78DUSOBFFFFDC2053 
512 1ЕЗЕСЕРТЕРО47ЗЕ 14011826037 EFOAD817F27F 370FFE92703BDF2UD39CEFBCOB698 
S121F41438A401A/01863AAT05A7076F066F046304863EA7053937 3689pO0F32C60849E1 
S121F438368618493rF11325426F5337 EF 3BOCEFCOOFFFFDCCEFEOOFFFFDETFFFE3RDIO 
S121F456F3852706BUF16D7CFFEJFEFFDCFFFFD88DF2882706FEFFDAFFFFÜBCEFFDBEI1 
S$121F4740Dt607E20546906A20481022COBEB01A900A80084FF260139/ EF191CEFFDCCI 
S121F4923F 1OFEFFDCA6008095B6FRnC68D90CEFFDBA601A10527023F 108DF 304864070 
5121Ғ4В04839СЕҒҒО8А60ІВ?РВС4А60ОСЕҒВС0484С4848Д807840С4А807А70746063923 
$121FACEBÜF4465080202402803A8D1120F68BDF4468DD2FEFFDCBUF3CCUDO220FAFEFF7F 
S121F4ECD808FFFFÜB8FEFFDCOBFFFFDCRCFFDE26857EF0a78nROFEFFUCA1002707433C 
S121F50444004326024C397EFABFBDF4A5670FFE3261B7FFFDARU9126/5CEFFD86COI8C 
$121F52826F56C00A60049625EE6F002002808R3C6038DC529COFEFFDCAS00CEF8COA? ВТ 
$121F54606460584F7A705A60784Fp5A7076F06630637C614803F8030460184F7470142 
$121F564803580338031843047015A26EB6F06A46058A38A705C60AU8U1E5A26FB33RDFC 
S$121F582F500290F274086153F11CEFBC95A26ABRDFABF7EF3DC/EFOAD6DOS2AFCALE6 
$121F54004398DF1608DF28827EBFEFFDCA600FEFFÜABDF3CCOBFFFFUABDFAF120ECIG 
S121F5B8E3O0EE054FE60058498D02030EB01A900CB2489014A700E/01EEUQ0EB01A9003025 
$121F5DCA700E701460205EE0031314D000306C0626026c05353434343434C609304684 
S121F5FA054709005426F8C6953046024709085A26F83930C6054609A702085A26FBE4 
$121F61806094603A708095A26F 8 3131 31313139 30460566 06A704E7U339 30A604A7E4 
5121Р636054603А7 0639 304605 3666 068DEF 322066 3434 ЗОВ6ОЧЕБОРЬТОООВЦАФКРВО? 
5121Ғ69432А695А?709Л606Д704А3930А609А705А60АА7068609Е608Е70Д094Д26Ғ8317Н8 
$121F 672313939800 680032006230A6036604AB06A706£90507E67056006270284F BA753 
$121F6900239364604C60020E730460320F7308D0908003209830E60546064003A706CE 
S121F6AEE20420D430E604460610A706E605C20020C630E60320F 08D113716323020R4 
$121F6CCH39D0930E7034704075D29838608364F30£606562402A80746566A0025F658 
$121F6EA3139FFOSFFIFFF3BFFAOFFABFFSIFFG66FFTAFFZFFF9AFF99FFO9CFFATIFFACFB 
S121F7098FF88001/0010002F004F005000860096FFADFFR330EE0580U630EE058D0145 
$121F726394600802936460080208D00E328010306c0826026C073930A6048FEFFFAEEO6 
$121F74490364600850227FA32A7013944444444840F8830813923029807 3930£E05E|1 
S$121F762460081042706850680C920F13930EE0580n05073047023946U081412D0E8138 
S121F789542E1281C729108007840F0D398130200481392FF40C0g39209BFEFFF&EEA41 
S121F79E00406004724FBA601847F39A7043930E6036F046F0330EE059pC12509542rF59 
S121F78c24800920F2208130EE058081291837C60430680469055A2EF 94404A7043324 
S10FF7DAB0BCSA2EEq4002092074C208FA9 

$9030000FC00 


C — 49 


56800 INSTRUCTION SET 


Condition | Condition Reg | 


Boolean/Arith | 5141320 
Орегацоп КЕЯ ТЕТЕ 


ОР MC PB. | OP МС PB ОР МС РВ ОР MC PB OP MC PB OP MC PB 


Load accumulator М-А 

M>B 
Load stack pointer М > SPH. (M + 1) 

> SPL 

Load index M-XH.(M+ 1) 
register χι 
Store accumulator АЗМ 

В-М 
Store stack SPH > M, SPL > 
pointer (М +1) 
Store index -XH >M. XL » 
register (М+1) 


Transfer accumu- 


lators А-В 


BoA 


Transfer Acc. to 
cond. reg. 
Transfer cond. reg. 
to Acc. 

Transfer stck ptr to 
index 

Transfer index to 
stck ptr 
Pull data 


А > ССВ 


ССК >A 


5Р + | + X 


Х-1-+ 5Р 
SP + | > SP, Msp 
>A 

SP + 1 > SP, 
Msp > В 

А > Msp, SP -- 1 
+ SP 

В + Msp, SP - 1 
> SP 
А+В»А 
А+М-А 
В%М-В 

А + М +С>А 
В+М + С>В 


Add accumulators 
Add 


Add with carry 


Subtract 
accumulators 
Subtract 


А-В-А 
-М-А 
В-М-В 


Subtract with 
carry - А-М-С-А 
B-M-C^B 
Increment. ΑΡΤΙΑ 
В + 1 + В 
м+ 1 +м 


Increment stack 
SP + 1 > SP 


pointer 

Increment index 

reg. Х+ 1 +Х 

Decrement A-17A 
B-1>B 


м-1+м 


Decrement stack 


SP — 1 > SP 


pointer 
Decrement index 
register Х-і-х 
Complement (1's) А-А 
BB 
мом 
Complement (2'з) 0-А-А 
00- B^B 
00-М+М 


Decimal adjust 
accumulator 


OP = Operation Code МС = Number'of:MPU Cycles ` РВ = Number of Program Bytes 


Boolean/Arith 


84 É 


Operation 


Logical and 


Inclusive or 


Exclusive or 


a 
> 

t2 t2 12 тә 42 2 

кә бә МӘ 19 вә te 

NN NW 09 ә 

++ + +» € > ++ 

999909 


Shift left arithmetic 


е 

° 

+ 
+ + < 

o 
+ + 


Shift right 
arithmetic 


Shift right logical 


Rotate left 


Rotate right 


Фе ο. ον ο. ον ο» σι ον ον > ον 
“- + +» +» 49 4» 4» е» «ν 4 «9 4 


* 9 99999929 
79700095809 ое 
E στ. σα 
ον ον 4 44 4 ғғ 4» ++ ++ 4» 


Compare accumu- 
lators 
Compare 


Compare index 
register 

Test (zero or 
minus) 


Bit test 


Branch 

Branch if carry 
clear 

Branch if carry 

set 

Branch if overflow 
clear 

Branch if overflow 
set 

Branch if equal to 
zero 

Branch if greater 
or equal to zero 
Branch if greater 
than zero 

Branch if less 

than zero 

Branch if less than 
ог equal to zero 
Branch if not equal 
to zero 


Z=1 


N@V=0 


Z+(N@ V)=0 


N@V=I 


| 2*(Ч@У)= ! 


Z=0 


Branch if minus ΝΞ 
Branch И plus Мер 
Branch if higher C+Z=0 
Branch if lower - 


©+2=1 


ог зате 


ОР = Operation Code ` МС = Number of MPU Cycies PB = Number of Program Bytes 


TEELT 


LU 


ΜΝ ЕТЕНЕ 
Operation i 


Instruction 


Branch to 
subroutine 


Jump to See 
subroutine Special ejojojojojo 
Operations ө|[ө]ө|ө{ө/ө 


Зитр 
Return from 
subroutine 
Return from 
interrupt 
Software interrupt ` 
Wait for interrupt 
No operation 


Note JU 
e|sj]ejelelje 
е| Це вее 
elejele ele 


Фок КК 
со къ НК 
ө |е кіх 
оо. . е К 


Clear 


Clear carry 
Clear interrupt 
mask 

Clear overflow 
Set carry 

Set interrupt 
mask 

Set overflow 


elkielelele 
eleleleikio 
ejejejejej;- 


x 
| 


CONDITION CODE SYMBOLS: LEGEND: 
H Half-carry from bit 3; OP | Operation Code (Hexadecimal): 
1 Interrupt mask MC Number of MPU Cycles; 
N Negative (sign bit) PB Number of Program Bytes; 
Z Zero (byte) * Arithmetic Plus; 
v Overflow, 25 complement - Arithmetic Minus; 
С Carry from bit 7 9 Boolean AND; 
R Reset Always Msp. Contents of memory location pointed to by Stack Pointer; 
5 Set Always + Boolean Inclusive OR; 
+ Test and set if true, cleared otherwise © Boolean Exclusive OR; 
° Not Affected M Complement of M; 
> Transfer Into; 
0 Bit = Zero; 
00 | Byte = Zero; 


Note — Accumulator addressing mode instructions are included in the IMPLIED addressing 


CONDITION CODE REGISTER NOTES: 


(Bit set if test is true and cleared otherwise) 


1 (Bit V) Test: Result = 10000000? 
2 (Bit C) Test: Result = 00000000? ES 
3 (Bit C) Test: Decimal value of most significant BCD Character greater than nine? (Not cleared if previously set.) 
4 (Bit V) Test: Operand = 10000000 prior to execution? 
5 (Bit V) Test: Operand = 01111111 prior to execution? 
6 (Bit V) Test: Set equal to result of N е C after shift has occurred. 
7 (Bit N) Test: Sign bit of most significant (MS) byte = 1? 
8 (Bit V) Test: 2's complement overflow from subtraction of MS bytes? 
9 (Bit N) Test: Result less than zero? (Bit 15 = 1) 
10 (Ail Load Condition Code Register from Stack. (See Special Operations) 
11° (вий Set when interrupt occurs, И previously set, а Non-Maskable Interrupt is required to exit the wait state. 
12 (ALL) Set according to the contents of Accumulator A 
^ 


АМЕ. 


SPECIAL OPERATIONS 


JMP, JUMP; 
РС ‘MAIN PROGRAM 


КН = NEXT ADDRESS 


бЕ = JMP 
K = OFFSET 
κι = NEXT ADDRESS 
e 


Х+К | NEXT INSTRUCTION H 
K| NEXT INSTRUCTION 


JSR, JUMP TO SUBROUTINE: 
PC MAIN PROGRAM se STACK PC SUBROUTINE 


INX + K 1st SUBR. INSTR. 
(n* 2) H 
п+2 L 


*К = 8-ВІТ UNSIGNED VALUE (п + 2} н AND (n + 2) L FORM n+ 2 
РС MAIN PROGRAM $Р STACK PC SUBROUTINE 
п+2 SL = SUBR. ADDR. 5Р с (m+3 L ($ FORMED FROM SH AND SL) 
n+3 NEXT MAIN INSTR. ——= STACK POINTER 
AFTER EXECUTION. - 


PC MAIN PROGRAM 


n 


п+ 1 ЕХТЕМОЕО п+ 1 


гмохо 


ΙΝΟΧΟ ὁ n«1 


BSR, BRANCH ТО SUBROUTINE: 
PG | MAIN PROGRAM se 


8D = BSR 


PC SUBROUTINE 


n*2*K tst SUBR. INSTR. 


STACK 
n*1 + К = OFFSET* (п +2) Н 


"К = 7-BIT SIGNED VALUE; п + 2 FORMED FROM (п + 2)н 
AND (п + 2)L 


м 


SPECIAL OPERATIONS 


RTS, RETURN FROM SUBROUTINE: 
РС SUBROUTINE 55 STACK 


D =m СА, s 


SWI, SOFTWARE INTERRUPT 
РС MAIN PROGRAM 


ss 


9999 9 99 
ét t 


WAL, WAIT FOR INTERRUPT 
PC MAIN PROGRAM — 


! d 


99999 99 
ло ὁ ^ т ә ο 


RTI, RETURN FROM INTERRUPT: 
PC INTERRUPT PROGRAM 55 


коже > s —] 


` 


AMI. 


PC MAIN PROGRAM 


PC INTERRUPT PROGRAM 
m INT. ROUTINE 


H = ADDRESS WITH 
ALL ADDRESS LINES 
IN HIGH STATE 


PC INTERRUPT PROGRAM 


m INT. ROUTINE 


mH * (H — 0007) 

mi = (Н — 0006) 

Н = ADDRESS WITH ` 
ALL ADDRESS LINES 
IN HIGH STATE 


PROGRAM PROCEEDS AT m ONLY AFTER 
EXTERNAL INTERRUPT REQUEST 


PC MAIN PROGRAM 
NEXT MAIN INSTR. 


АМ. 


АМЕ Sales Offices 


Western Area 


1104 Highland Avenue 

Suite I 

Manhattan Beach, California 90266 
Tel: (213) 379-2452 


3031 Tisch Way 
Suite # 202 

San Jose, CA 95128 
Tel: (408) 249-4550 


Central Area 


500 Higgins Road 
Elk Grove Village, Illinois 60007 
Tel: (312) 437-6496 


725 S. Central Expressway 
Suite C-5 

Richardson, Texas 75080 
Tel: (214) 231-5721 


29200 Vassar Avenue 
Suite # 214 

Livonia, Michigan 48152 
Tel: (313) 478-9339 


Fox Meadows Office Building 
3030 Harbor Lane North 
Suite # 101 

Minneapolis, Minnesota 55441 
Tel: (612) 559-9004 


24200 Chagrin Blvd. 
Suite # 352 
Cleveland, Ohio 44122 
Tel: (216) 292-6850 


England 


AMI Microsystems Ltd. 
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` 
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AMI Microsystems S.A.R.L. 
124, Avenue de Paris 
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Tel: 374 00 90 
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AMI Microsystems S.p.A. 
via Pascoli 60 

I-20133 Milano 

Tel: 29 37 45 
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Room # 212 
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1420 Providence Turnpike 
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Altamonte Springs, Florida 32701 
Tel: (305) 830-8889 


Axewood East 

Butler & Skippack Pikes 
Suite # ЗА 

Ambler, Penn. 19002 
Tel: (215) 643-0217 
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AMI Microsystems GmbH 
D-8 Muenchen 80 
Rosenheimer Strasse 30 
Suite # 237 

Tel: 48 30 81 
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AMI Japan Ltd. 


Daiwa Bank Building 
1-6-21, Nishi Shimbashi 
Minato-ku, Tokyo 105 
Tel: (501) 2241 


ЕККАГА 


as of June 1977 


PROTOTYPING BOARD MANUAL 


SUPPLEMENT -- June 1977 


The attached pages correspond to Revision D of the EVK Series. 
In particular, the schematics and board layout guides in the 
manual are obsolete, and should be replaced with the Revision D 


information. 


READ ONLY MEMORY 


The EVK is now supplied with one 2K-byte ROM containing PROTO. 
By convention, this ROM goes into Position 10, although Position 
ll has the same partially decoded address. This leaves Position 
11 open for some other ROM, either 2K (AMI S6831) or 1K (AMI 
56830). 


А separately-priced ROM appropriate for this usage is АМТ! 5 
Micro Assembler/Disassembler. The MA/D program is a "direct" 

or "zero-pass" assembler which translates instruction mnemonics 
and hex values into RAM contents, and it can also reverse the 
process. The order number for the MA/D ROM is C10224. 


For owners of old EVKs with PROTO on two ROMs, the new one-ROM 
PROTO is also available as a separately-priced item. The part 
number is С11003. This ROM is addressed at F000, while MA/D is 
address at ES800. 


PROTO COMMANDS 


Although it is not stated in the manual, the Addr parameter 
for the G command may be omitted, in which case the value of 


P currently stacked is used. 


It should be noted that апу С command unstacks P (and the 

other registers) from the user's own stack, based upon the 
value of S which PROTO has saved in locations FFF2-FFF3. This 
pair of locations is not initialized by PROTO at power-up time. 
Therefore, a G command will not function properly after power-up 
until one of three events has taken place: at least one use 

of the Reset button (which will initialize the user's own stack 
at FF8F, shared with PROTO itself); or the use of the PROTO 
command S to force a value into FFF2-FFF3; or the direct entry 
(via the Reset Vector Switches) into a user program which 
initializes the user's own stack pointer. 


The description in the manual of the E command is incorrect. 
What this command generates is.an "S9" type hex format record, 
as described on Pages А-1 and А-2 of the manual. This is the 
End-of-Tape record expected by the PROTO command L and by 
similar 6800 software. 


RS CUBED ROUTINES 


The description of interface conventions for the RS CUBED 
routines in Chapter 4 may not be clear to programmers working 
at machine code level (or with MA/D), as opposed to users 


of AMI's macro assemblers. 


The technique for entering any RS CUBED routine is to set up 
the 6800 registers as specified, then execute this sequence: 

SWI 

BYTE hh 

XXX ххх 
In this sequence, “hh" represents a hex value аз shown in the 
Index column of the RS CUBED write-ups, and "ххх" represents 
the beginning of the user's own executable code to which 
control returns after the RS CUBED routine has accomplished 


its function. 


Using MA/D, the sequence would be entered this way.at, for 
example, RAM location 100: | 

22. 18100 

0100:SWI 

0101:hh 

0102:xxx ххх 


It should be noted that the assembly listings on Pages C-3 
through. C-48 reflect the contents of the PROTO ROM from F000 
through F7FF. In other words, the LOC column on these pages 
should be offset by F000 to match the actual ROM. 


OPERATING PROCEDURES 


The edge connector supplied with the EVK is an Amphenol 
261-10043-2, although the more expensive 225-805-43 mentioned 
in Chapter 5 may also be used. 


The general logic of the EVK draws about 3.5 amps, not the 
4.0 amps specified in Chapter 5. 


The protocol used by the TTY interface is 7 bits, with 2 
stop bits, even parity. This may be seen from the way that 
PROTO sets up the ACIA. 


The current loop set-up in the manual is incorrect. A +5V 
level should be tied to DCD (B63) and CTS (B65). The rest of 
the wiring is: 


TTY EVK SIGNAL 
7 B64 OUT + 
6 B66 OUT - 
4 B68 IN + 

3 


B70 IN - 


The switch directions shown on Page 20 of the manual are for 
toggle switches, and are therefore backward for slide switches 
like those on the EVK 300. Use the board markings when you 
install jumpers or slide switches. 


Whenever the EVK goes through Reset, either because of power-up 
or because the Reset button has been used, remember that the 
Reset Vector Switches must point to appropriate code, such as 
the start of PROTO, at F000 (binary 1111 0000 0000 0000). 
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Part Description 


P.C.B. P/N 03-0013-000 Rev D 


56800 
56810-1 
56820 
56834 
56850 
9263-001 611003 
555 

1488 
1489А 
4702 
74500 
74502 
7404 
7407 
74508 
74510 
74520 
741530 
74530 
74532 
7437 
7438 
745138 
74160 
748257 . 
87978 і 
96502 


Socket 8 Pin С-9308-02 
Socket 14 Pin С-9314-02 
Socket 16 Pin С-9316-02 
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Part Description ЕУК-98| EVK-99 EVK-100 | EVK-200/300 


Socket 24 Pin C-9324-02 6 15 
Socket 24 Pin (R.N.) 15-61024 | 000 1 
Socket 40 Pin С-9340-02 1 
Capacitor .1 ці, 16 V + UK 16-104 30 
Capacitor .01 ці, 6 V + 


w 
ч 


0 
Capacitor, Tantalum, 22 мії, 15 У 5 
Capacitor, Tantalum,4.7uf 75 V, 0 
Capacitor, Mica, 8 pf, 500 V 4 
Capacitor, Mica, 56 pf, 500 V 2 
Capacitor, Mica, 100 pf, 500 V 0 
Capacitor, Mica, 560 pf, 500 V 0 
Capacitor, Mica, 270 pf, 500 V 2 
Capacitor, Mica, 470 pf, 500 V 0 
Transistor, MJE 340 0 
Transistor, 2N3563 1 
Transistor, 2N4402 1 
Transistor, 2115400 0 
Transistor, 2N5771 2 
Transistor, 2N5772 2 
Diode А15Е 1 
Diode 1N914 3 
Diode 1N4003 6 
Resistor 1M 1/4 W 2 
Resistor 1К.л.1/4 W 6 
Resistor 1.5 К.љ1/4 W 3 
Resistor 2Кл.1/4 W 2 
Resistor 3.3К.а] /4 W 0 
Resistor 4.7К 1/4 W 0 
Resistor 10К.л.1/4 W 0 
Resistor 101/4 W 0 
Resistor 22.л.1/4 W 1 
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Part Description ЕУК-98 


Resistor 22K4.1/4 W 
Resistor 33 «1/4 W 
Resistor 511/4 W 
Resistor 100K 4.1/4 W 
Resistor 1001/4 W 
Resistor 120.д.1/4 W 
Resistor 1501/4 W 
Resistor 150K...1/4 W 
Resistor 470 «1/4 W 
Resistor 510.4.1/4 W 


Resistor Packs 8 Res. 16 Pin 4.7K 
` Beckman 898-3-84.7 


Amphenol Connector (86 Pin) 261-1004312 
8 Position Switch CTS-206-008 

4 Position Switch CTS-206-004 

Switch 1101C 

Switch 8125А 

Crystal 1,000 MHZ 

Crystal 2.4576 MHZ 


Potentiometers, 15 Turn, 20K, 
Burns 3006P-1-203 


Cap Cer Disc .47 дій, > 6 volts 


EVK-99 
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EVK-100| EVK-200/300 
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